はてなフォトライフから画像ぶっこぬき

scrappy1.pl

use strict;
use Scrappy;

my $s = Scrappy->new;
# １秒間隔でクロール
$s->pause(1);

# クロール実行
$s->crawl('http://f.hatena.ne.jp/hotfoto',
    # 1. root
    '/hotfoto' => {
        '//ul[ @class="fotolist" ]/li/a' => sub {
            my ($self, $item) = @_;
            # 詳細リンクをキューに追加
            $self->queue->add($item->{href});
        }
    },
    # 2. 写真詳細
    '/:user/:id' => {
        '//img[ @class="foto" ]' => sub {
            my ($self, $item ) = @_;
            my @file = split(/\//,$item->{src});
            # 画像をローカルにダウンロード
            $s->get($item->{src})->store('/tmp/' . $file[$#file]);
        }
    },
);