YAKINIQUEST - ヤキニクエスト 焼肉 焼き肉 様から取得
$ perl -MLWP::Simple -le '/東京/ and push @a,$_ for split($/,get "http://www.yakiniquest.com/-/all"); print $a[rand @a]'
最新焼肉番付 --東京焼肉ものがたり-- 様から取得
$ perl -MLWP::Simple -MEncode -C2 -le '($a = decode("sjis", get "http://park20.wakwak.com/~yaki-niku/banduke2.html")) =~ s|$/||g; push @a,"$2($1)" while $a =~ m|<td.*?href="(.*?)".*?<strong>(.*?)</strong>.*?</td>|gm; print $a[rand(@a-2) + 2]'
kwappaさん(kwappa.net)より、
http://www.kwappa.net/yakiniku/quest.dat
を提供いただいたので、そちらから
$ perl -MLWP::Simple -le '@a = split($/, get "http://www.kwappa.net/yakiniku/quest.dat"); print $a[rand @a]'
さらにkwappaさんによるPHP, Rubyの焼肉ワンライナー
$ php -r '$a=file("http://www.kwappa.net/yakiniku/quest.dat");print($a[array_rand($a)]);'
$ ruby -r'net/http' -e'h=Net::HTTP.new("www.kwappa.net");q=Net::HTTP::Get.new("/t");r=h.request(q).body.split("\n");puts r[rand(r.length)]' ↓訂正 $ ruby -r'net/http' -e'h=Net::HTTP.new("www.kwappa.net");q=Net::HTTP::Get.new("/yakiniku/quest.dat");r=h.request(q).body.split("\n");puts r[rand(r.length)]'