我使用Perl创建基本搜索和打印应用程序,但由于401错误而无法进行身份验证。我尝试从以下测试代码开始,但它不会起作用。顺便说一下,我已经设置了带有密钥和访问令牌的Twitter应用程序页面,
use Net::Twitter::Lite::WithAPIv1_1;
use Data::Dumper;
$nt = Net::Twitter::Lite::WithAPIv1_1->new(
traits => [qw/API::RESTv1_1/],
authenticate => 1,
ssl => 1,
apiurl => 'http://api.twitter.com/1.1',
consumer_key => "ckey",
consumer_secret => "csecret",
access_token => "atoken",
access_token_secret => "atokensecret,
);
my $result = $nt->search('@gizmodo');
在此之后,我收到401错误