特定のページから画像ひっこぬく

いい加減何回も書くの飽きたので

javascript:(function(){ var list = document.getElementsByTagName('img'); var str=""; for(var i=0;i<list.length;i++){ str += list[i].src + "\r\n"; } console.log(str); })();

上記結果を@listにコピペ

#!/usr/bin/perl -w

use strict;
use Data::Dumper;
use Furl;

my @list  =  qw|
http://hogehoge.com/hoge.jpg
|;

my $furl  =  Furl->new(
  agent  => 'ImageDownloader',
  timeout  => 10,
);

for my $url(@list) {
  print $url, $/;
  my $res = $furl->get($url);
  if ($url =~ /^(.+)\/(.*?)$/) {
    my $filename = $2;
    open my $f, ' >> ', $filename;
    print $f $res->content;
    close $f;
  }
}