はてなフォトから画像を取得する

photo_api.pl

#!/usr/bin/env perl

use strict;
use warnings;
use LWP::UserAgent;
use XML::Simple;
use Data::Dumper;

sub main {
    my $baseurl = "http://f.hatena.ne.jp/userlist";
    my $page = $ARGV[0];
    my $ua = LWP::UserAgent->new;
    my $url = URI->new($baseurl);
    $url->query_form(
        mode => 'rss',
        type => 'image',
        page => $page
    );
    my $res = $ua->get($url);
    if ($res->is_success) {
        my $xml = XML::Simple->new;
        my $hash = $xml->XMLin($res->content);
        for my $item (@{ $hash->{item} }) {
            print $item->{'hatena:imageurl'} . "\n";
        }
    }
}

&main;