$twit->search({q => "to:$username",since_id => $sinceId})
が使えなくなっていた.現行のバージョンでは,以下のようにする
my $ms=$twit->;mentions({ since_id => $sinceID, count =>10 });
for my $res ( @$ms ) {
my $text = Encode::encode('utf8', $res->{'text'});
print "$text \n";
}
引数は無くても動くらしいが,指定しないと動かなかった.for my $res ( @$ms ) {
my $text = Encode::encode('utf8', $res->{'text'});
print "$text \n";
}
なんでだろ?
参考
http://search.cpan.org/dist/Net-Twitter/lib/Net/Twitter.pod
0 件のコメント:
コメントを投稿