呼應一下這篇「統計留言版有哪些pixnet網友來留過言」,這回把統計的對向改到迴響的網友,只統計pixnet網友,沒pixnet帳號的就沒統計了。

●程式
use WWW::Mechanize;
use HTML::TreeBuilder;

my $id='jck11';
my $listallpage=10;
my $listallurl='http://blog.pixnet.net/'.$id.'/listall/';
my $ct=0;

my $mech=WWW::Mechanize->new();

for($i=1; $i<=$listallpage; $i++){
my $url=$listallurl . $i;
$mech->get($url);
$mech->success or die $mech->response->status_line;

my $html=$mech->content;
my $root=HTML::TreeBuilder->new_from_content($html);
my @links=$root->look_down(
_tag=>'a',
href=>qr{http:\/\/blog\.pixnet\.net\/$id\/post\/\d{7}$}x
);

for($j=0; $j<=$#links; $j++){
$mech->get($links[$j]->attr('href'));
$mech->success or die $mech->response->status_line;

my $myhtml=$mech->content;
my $myroot=HTML::TreeBuilder->new_from_content($myhtml);
my @mylinks=$myroot->look_down(
_tag=>'div',
class=>'comments-post',
);
for($k=0; $k<=$#mylinks; $k++){;
my $items= $mylinks[$k]->{'_content'};
for($l=0; $l<=$#$items; $l++){
if(ref($items->[$l]) eq 'HTML::Element' && $items->[$l]->{'href'} && $items->[$l]->{'href'} =~ /http:\/\/blog.pixnet.net\//){
print $items->[$l]->{'href'}, "\n";
}
}
}
$myroot->delete;
}
$root->delete;
}

●解說
只要把id和listallpage的部份即可
my $id='jck11';(jck11改成你的帳號)
my $listallpage=10;(10改成你想抓的文章頁數)

●執行結果
來我這留過言的pixnet網友有72個 :)
23 http://blog.pixnet.net/Mini1
23 http://blog.pixnet.net/tomowang
18 http://blog.pixnet.net/chang578
10 http://blog.pixnet.net/titon0323
8 http://blog.pixnet.net/DragonLee
7 http://blog.pixnet.net/kewang
7 http://blog.pixnet.net/HiHello2276
7 http://blog.pixnet.net/christhinet2
7 http://blog.pixnet.net/childishjulia
6 http://blog.pixnet.net/manage32
5 http://blog.pixnet.net/vk113
5 http://blog.pixnet.net/Ceciliya
4 http://blog.pixnet.net/hohc
4 http://blog.pixnet.net/jck11
4 http://blog.pixnet.net/pan0906
4 http://blog.pixnet.net/sweetpotato1224
3 http://blog.pixnet.net/wpt211
3 http://blog.pixnet.net/ydenw225
3 http://blog.pixnet.net/april417
3 http://blog.pixnet.net/avon8060
3 http://blog.pixnet.net/angelleev
2 http://blog.pixnet.net/wen92
2 http://blog.pixnet.net/katzen
2 http://blog.pixnet.net/menasi
2 http://blog.pixnet.net/theduke
2 http://blog.pixnet.net/greiner
2 http://blog.pixnet.net/toprich
2 http://blog.pixnet.net/ming0529
2 http://blog.pixnet.net/evielion
2 http://blog.pixnet.net/SMITH253
2 http://blog.pixnet.net/xup6u6zp
2 http://blog.pixnet.net/vickykill
2 http://blog.pixnet.net/hellsting
2 http://blog.pixnet.net/skywind022
2 http://blog.pixnet.net/puresherry
2 http://blog.pixnet.net/tokyo272652
2 http://blog.pixnet.net/changyang319
1 http://blog.pixnet.net/heyU
1 http://blog.pixnet.net/sosi
1 http://blog.pixnet.net/gofin
1 http://blog.pixnet.net/FANGNI
1 http://blog.pixnet.net/s7878s
1 http://blog.pixnet.net/remi888
1 http://blog.pixnet.net/akazara
1 http://blog.pixnet.net/six9063
1 http://blog.pixnet.net/s745530
1 http://blog.pixnet.net/rainfish
1 http://blog.pixnet.net/hamutalo
1 http://blog.pixnet.net/annshiun
1 http://blog.pixnet.net/chim1237
1 http://blog.pixnet.net/adularia
1 http://blog.pixnet.net/tsuki810
1 http://blog.pixnet.net/ting3839
1 http://blog.pixnet.net/bravetoto
1 http://blog.pixnet.net/Timmy3586
1 http://blog.pixnet.net/iamu87u87
1 http://blog.pixnet.net/kacaubird
1 http://blog.pixnet.net/bonnie8nz
1 http://blog.pixnet.net/D95240774
1 http://blog.pixnet.net/miknoilmai
1 http://blog.pixnet.net/joster7071
1 http://blog.pixnet.net/buttermimi
1 http://blog.pixnet.net/carolyn716
1 http://blog.pixnet.net/tsaiishuca
1 http://blog.pixnet.net/candy346618
1 http://blog.pixnet.net/smilingxiao
1 http://blog.pixnet.net/stella09431
1 http://blog.pixnet.net/ashleybarbie
1 http://blog.pixnet.net/lovingmaymay
1 http://blog.pixnet.net/happy74062002
1 http://blog.pixnet.net/mlovebluestar
1 http://blog.pixnet.net/exitofhappiness

jck11 發表在 痞客邦 PIXNET 留言(1) 人氣()


留言列表 (1)

發表留言
  • 以斯帖
  • 那這個程式是放在網誌哪?
    還是只能放在文章中?
    謝謝
  • 這個要安裝activeperl才能跑,有興趣的話再到留言版留言我再詳細說。

    jck11 於 2007/07/05 21:02 回覆

找更多相關文章與討論