HiRoKi氏の日記で見た「ドラえも」、一回一回クリックしては戻るのがすげぇ面倒くさかったので



use strict;
use LWP::UserAgent;
use HTML::TreeBuilder;

my $ua = LWP::UserAgent->new;
my $res = $ua->get("http://nyumen.hp.infoseek.co.jp/");
my $html = HTML::TreeBuilder->new_from_content($res->content);

foreach my $img ($html->look_down(_tag => 'a', href => qr{image/\d{3}\.png})) {
printf qq|<div><h3>%s</h3><img src="http://nyumen.hp.infoseek.co.jp/%s"></div><hr />\n|, $img->as_text, $img->attr('href');
}


で、perl hoge.pl > doraemo.htmlとか。くだらない事するスクリプトは大好きです。