fetch-movapic-follower.pl

#!/usr/local/bin/perl --

use strict;
use warnings;

use URI;
use Web::Scraper;
use YAML;

my $endpoint = 'http://movapic.com/hoge/follower?max=9999';
my $movapic = scraper {
   process 'div.body div.black > table.userprofile', 'user[]' => sub {
      my($node) = @_;
      my($user) = $node->look_down(_tag => 'a')->attr('href') =~ /\/([^\/]+)$/i;
      undef $node;
      $user;
   }
};

my $result = $movapic->scrape( URI->new($endpoint) );

print YAML::Dump($result);

exit;