Subscribed unsubscribe Subscribe Subscribe

焼肉ワンライナー

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)]'