WWW::Slmameでソラマメブログに貼付けた画像を全部DLする

アップロードではなく、貼付けた画像というのが肝。

#!/usr/local/bin/perl 

use warnings;
use strict;
use WWW::Slmame;

my $slmame = WWW::Slmame->new(
    id   => 'id',
    pass => 'pass',
    blog => 1
);
$slmame->get_images();

画像を貼付けていた場合のみ、実行ディレクトリ内にその画像がダウンロードされます。get_images()は、

$slmame->get_images({ blogurl => 'http://hogehoge.slmame.com/' });

みたいに、自前ブログに無関係なソラマメブログURLを指定する事も可能です。