perl は滅多に使わないので、たまには使ってみる
use strict; use Net::Twitter; my $twit = Net::Twitter->new( username => "your email", password => "your password" ); my $array_ref = $twit->friends_timeline(); foreach my $hash_ref ( @$array_ref ) { print $hash_ref->{'id'}, ": ", $hash_ref->{'text'}, "[", $hash_ref->{'created_at'}, "]\n"; }
というか、「スーパーpre記法」というのをいまさらのように使ってみるテスト。