''=~('(?{'.('[[).[|`%,,/`[/[@$'^'+)@@/^(@@@@@,@),@').'! "})') length q caller exec and print chr ord uc q chr lc and print chr ord q ref or and print chr ord q else and print chr ord q else and print chr ord q xor x and print chr oct oct o…

Linuxだと"seq"というコマンドがあるらしいけど、Macには無いらしい。 代わりに"jot"というコマンドがあるそうな。 $ jot 10 1 2 3 4 5 6 7 8 9 10オプションが結構あって、他にも色々できるらしい。 何かのときに役立つかも知れないので存在くらいは憶えて…

$ 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>何も出力されないとちょっと悲しい。</wassr>