Net :: Twitter :: Lite OAuth로 인증 할 수 없습니다.

Question

트윗에 대한 답장을 보내려고합니다. 나는 인터넷 :: 트위터 :: 라이트 사용

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 $@;