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 ); # ココのコメント外してね }
※ただし、動かした事がない。