Net :: Twitter :: Lite无法使用OAuth进行身份验证

Question

我正在尝试获取我的推文回复。我使用Net :: Twitter :: Lite：

my $nt = Net::Twitter::Lite->new(%consumer_tokens, %access_tokens, legacy_lists_api=>1); 
my $mentions = $nt->mentions(); 
print Dumper $mentions; 

但之后，我只有一个错误：无法用OAuth进行身份验证。 有什么建议吗？

我可以发布像这样的鸣叫： my $status = $nt->update({ status => 'some text' }); 但我无法得到答复。

UPDATE

工作：

#!/usr/bin/perl 
use warnings; 
use strict; 
use Net::Twitter::Lite; 
use Data::Dumper; 

my %consumer_tokens = (
consumer_key => 'xxxxxxxxxxxxxxxxxxxxxxxx', 
consumer_secret => 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx', 
); 
my %access_tokens=(
access_token => 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx', 
access_token_secret => 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx', 
); 

my $nt = Net::Twitter::Lite->new(%consumer_tokens, %access_tokens, legacy_lists_api=>1); 

#217932132083970049 
my $status = $nt->update({ status => 'Happy Perl People!' }); 
print Dumper $status; 

不起作用：

#!/usr/bin/perl 
use warnings; 
use strict; 
use Net::Twitter::Lite; 
use Data::Dumper; 

my %consumer_tokens = (
consumer_key => 'xxxxxxxxxxxxxxxxxxxxxxxx', 
consumer_secret => 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx', 
); 
my %access_tokens=(
access_token => 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx', 
access_token_secret => 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx', 
); 

my $nt = Net::Twitter::Lite->new(%consumer_tokens, %access_tokens, legacy_lists_api=>1); 

#217932132083970049 
my $mentions = $nt->mentions(); 
print Dumper $mentions; 

Answer 1

首先它注册的API和生成的信息，修改剧本，我列出

use strict; 
use warnings; 
use Net::Twitter::Lite; 

my $nt = Net::Twitter::Lite->new(
    consumer_key  => 'key_here', #first 
    consumer_secret  => 'consumer_secret_here', # 
    access_token  => 'access_token', #second, generate token 
    access_token_secret => 'access_token_secret', # 
    legacy_lists_api => 0, 
); 

my $result = eval { $nt->update('otra prueba') }; 

warn "$@\n" if $@;