言ったからには自分で書こう...
Twitter / mattn: 当たり前だと思うけど、PerlerならWeb::Sc ...所要時間、約10分
当たり前だと思うけど、PerlerならWeb::Scraperでアカウント名取ってNet::Twitter::Liteでfollowするよね？ #perl http://d.hatena.ne.jp/...
https://twitter.com/mattn_jp/status/81320211634069504
use strict;
use warnings;
use Config::Pit;
use Net::Twitter::Lite;
use URI;
use Web::Scraper;
my $uri = URI->new('http://d.hatena.ne.jp/sugyan/20110616/1308203734');
my $config = pit_get('api.twitter.com');
my $nt = Net::Twitter::Lite->new(%$config);
my $helper = scraper {
process '//div[@class="body"]//a[contains(@href,"http://twitter.com/")]',
'link[]' => '@href';
};
$helper->user_agent->env_proxy;
my $res = $helper->scrape($uri);
for my $link (@{$res->{link}}) {
print "$link\n";
$link =~ s!.*/!!;
#$nt->follow( $link ); # ココのコメント外してね
}
※ただし、動かした事がない。
