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

2011/06/16

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

タイトル長い！

言ったからには自分で書こう...

Twitter / mattn: 当たり前だと思うけど、PerlerならWeb::Sc ...

当たり前だと思うけど、PerlerならWeb::Scraperでアカウント名取ってNet::Twitter::Liteでfollowするよね？ #perl http://d.hatena.ne.jp/...
https://twitter.com/mattn_jp/status/81320211634069504

所要時間、約10分


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 ); # ココのコメント外してね

}

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

Posted at 20:46 | WriteBacks () | Edit

Edit this entry...

wikieditish message: Ready to edit this entry.

New Name:

Title:

Body:

meta-tags: perl
meta-creation_date: 2011-06-16T20:46:14+09:00

タイトル長い！ 
 
言ったからには自分で書こう... 
<blockquote class="quote">
 <a href="https://twitter.com/mattn_jp/status/81320211634069504">Twitter / mattn: 当たり前だと思うけど、PerlerならWeb::Sc ...</a> 
 当たり前だと思うけど、PerlerならWeb::Scraperでアカウント名取ってNet::Twitter::Liteでfollowするよね？ #perl http://d.hatena.ne.jp/...
 <cite>https://twitter.com/mattn_jp/status/81320211634069504</cite>
</blockquote>

所要時間、約10分 
<code class="code">
use strict; 
use warnings; 
 
use&nbsp;Config::Pit; 
use&nbsp;Net::Twitter::Lite; 
use&nbsp;URI; 
use&nbsp;Web::Scraper; 
 
my&nbsp;$uri&nbsp;= URI-&gt;new('<a href="http://d.hatena.ne.jp/sugyan/20110616/1308203734">http://d.hatena.ne.jp/sugyan/20110616/1308203734</a>'); 
 
my&nbsp;$config&nbsp;= pit_get('api.twitter.com'); 
my&nbsp;$nt&nbsp;&nbsp;&nbsp;&nbsp; = Net::Twitter::Lite-&gt;new(%$config); 
 
my&nbsp;$helper&nbsp;= scraper { 
&nbsp;&nbsp;&nbsp;&nbsp;process&nbsp;'//div[@class=&quot;body&quot;]//a[contains(@href,&quot;<a href="http://twitter.com/">http://twitter.com/</a>&quot;)]', 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'link[]'&nbsp;=&gt;&nbsp;'@href'; 
}; 
 
$helper-&gt;user_agent-&gt;env_proxy; 
 
my&nbsp;$res&nbsp;=&nbsp;$helper-&gt;scrape($uri); 
for&nbsp;my&nbsp;$link&nbsp;(@{$res-&gt;{link}}) { 
&nbsp;&nbsp;&nbsp;&nbsp;print&nbsp;&quot;$link\n&quot;; 
&nbsp;&nbsp;&nbsp;&nbsp;$link&nbsp;=~&nbsp;s!.*/!!; 
&nbsp;&nbsp;&nbsp;&nbsp;#$nt-&gt;follow( $link ); # ココのコメント外してね 
} 
 
</code>
※ただし、動かした事がない。

Excerpt:

Ping URLs:

File:

Password:

A quick preview will be rendered here when you click "Preview" button.