黒縁眼鏡は海を飛ぶ

IT中心にそこはかとなく

PerlでTwitter APIを叩いてみる

過去、似たようなことに挑戦していた気がするのですが、玉砕していたっぽいのでリベンジ。
モジュールをいくつか使ってサクサクやってみたかったのですが、どうにも技量不足なので、Net::Twitter::Liteというモジュールを使ってサクッとやってみました。

検索して表示するだけのやつ

my $rs = $nt->search({q=>"Perl", lang=>"ja", count=>10});のところのq=>"Perl"で検索したい文字を打てばよいです。
実行すると「ryoana14: Perl最高!」とか多分そんな感じで表示されるはず…

本当ならLWP::UserAgentとか使ってやってみたかったのですが、どうしてもできなくて泣きながらNet::Twitterの使い方調べました。くそう。

my $result = $nt->update('Hello, world!');とかするとtweetすることもできます。できました。