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することもできます。できました。