perl twitter搜索只返回最新推文

Question

使用这个PERL代码片段，它工作得很好，但只是从Twitter开始返回最新的推文？如果这是正确的，它应该返回一系列推文？

$nt = Net::Twitter::Lite::WithAPIv1_1->new(%consumer_tokens);
$r = $nt->search({q=>'@hullpsy'});

foreach $status ( @{$r->{statuses}} )
{
    $stweet = $status->{text};
    $ssender = $status->{user}{screen_name};
    $screby = $status->{created_at};
    $stweet =~ s/  / /gi;
    $stweet =~ s/\n/ /gi;
    $stweet =~ s/\://g;
    print "$screby:$ssender:$stweet\n";
}

Answer 1

module documentation建议你应该迭代@{$r->results}， 不是@{$r->statuses}