gistfile1.pl

#!/usr/bin/perl

use AnyEvent::HTTP;
use EV;
use JSON;
use strict;
use warnings;

use constant APIBASE => 'http://emma.pixnet.cc';

main();

sub grubSets
{
    my $user = shift;
    my $setId = shift;

    http_get APIBASE . "/album/elements?set_id=$setId&user=$user", sub {
        my $jsonRaw = shift;
        my $jsonObj = JSON::from_json($jsonRaw) or return;

        foreach my $element (@{$jsonObj->{elements}}) {
            my $url = $element->{thumb};
            http_get $url, sub {
                print "$url\n";
            };
        }
    };
}

sub grubUser
{
    my $user = shift;

    http_get APIBASE . "/album/sets?user=$user", sub {
        my $jsonRaw = shift;
        my $jsonObj = JSON::from_json($jsonRaw) or return;

        foreach my $set (@{$jsonObj->{sets}}) {
            grubSets($user, $set->{id});
        }
    };
}

sub main
{
    my $user = 'raindog';

    grubUser($user);

    EV::loop;
}

__END__