2009-02-02 イイネワンライナー Perl OneLiner Wassr $ perl -MLWP::Simple -MJSON -C2 -e '@f = @{$_->{favorites}} and print $_->{text}, $/, join($", @f),$/ for @{decode_json(get "http://api.wassr.jp/statuses/user_timeline.json?id=" . pop)}' <Wassr ID>何も出力されないとちょっと悲しい。