tokuhirom's Blog

Re: 今すぐフォローすべきPerl界のスーパーエンジニアをPerlでフォローする、たった一つかもしれない方法

use strict;
use warnings;

use Config::Pit;
use Net::Twitter::Lite;
use Web::Query;

my $uri ='http://d.hatena.ne.jp/sugyan/20110616/1308203734';

my $config = pit_get('api.twitter.com');
my $nt     = Net::Twitter::Lite->new(%$config);

for my $link (wq($uri)->find('//div[@class="body"]//a[contains(@href,"http://twitter.com/")]')) {
    print "$link\n";
    $link =~ s!.*/!!;
    #$nt->follow( $link ); # ココのコメント外してね
}

※ただし、動かした事がない。