エロいワンライナー

wget とか使えばもっと短くできそうだけど、Perl だけで頑張ってみた。

コマンド

$ perl -MLWP::Simple -MFile::Basename -e 'map{mirror($_,basename($_))} get($ARGV[0]) =~ m{<a.*?href="(http://[^"]+\.jpg)"}gi;' http://metiss.blog92.fc2.com/blog-entry-142.html

結果

この記事は、 JPerl Advent Calendar 2008に寄稿したワンライナーで画像収集 - 8日目のネタです。他の人の記事はエロくなくてしっかりと役立つ Perl の Tips が載ってるから見るといいよ！