連番のＨ画像/動画を一気にダウンロードする2

[0756 名無しさん＠お腹いっぱい。 2010/04/03(土) 11:05:55]

前にも書いたけど、version 1.0.914に合わせて書き直した。
sub scrapeimgurl(@) {
# make each image's url from a thumbnail page.
my ( $ofn ) = @_;
use HTML::TreeBuilder;
my $tree = HTML::TreeBuilder->new_from_file($ofn);
$tree->eof();
foreach my $img_tag ($tree->find("img")) {
my @div_tag = $img_tag->look_up('_tag' => 'div');
if(scalar(@div_tag) == 1){
(my $returlimg = $img_tag->attr('src')) =~ s/&/&/g;
my $returlimgname = $img_tag->attr('alt');
$tree->delete;
return($returlimg, $returlimgname);
}
}
$tree->delete;
return "";
}
HTML::TreeBuilderがない？そんなの知らん。