當你的留言版留言的人多了的時候
有時可能想要統計一下到底有哪些pixnet的網友們來過你這兒留過言
也許有的好久沒去逛過他們的部落格了
現在用程式把他挖出來
順便聯絡一下感情 :)

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

my $id='jck11';
my $guestbookpage=20;
my $guestbookurl='http://www.pixnet.net/guestbook/'.$id.'/',
my $ct=0;
my %hash;

my $mech=WWW::Mechanize->new();
for($i=0; $i<=$guestbookpage; $i++){
my $url=$guestbookurl.$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',
target=> '_blank',
);

for($j=0; $j<=$#links; $j++){
my $line= $links[$j]->attr('href');
next if($line !~ /http\:\/\/www.pixnet.net\/guestbook\//);
$line=substr($line, 32);
my $guest=$line;
if($line =~ /\//){
$guest=(split(/\//, $line))[0];
}
next if $guest eq 'admin';
next if(exists($hash{$guest}));
$hash{$guest}= $links[$j]->attr('href');
$ct++;
    print $ct, " ", '<a href="'.$links[$j]->attr('href').'">'.$guest.'</a>', "\t\t", $links[$j]->attr('href'), "\n";
}
$root->delete;
}

●解說
只要把id和guestbookpage的部份即可
my $id='jck11';(jck11改成你的帳號)
my $guestbookpage=20;(20改成你想抓的留言頁數)

●執行結果
來我這留過言的pixnet網友有27個 :)
1 hohc http://www.pixnet.net/guestbook/hohc
2 usal2555669 http://www.pixnet.net/guestbook/usal2555669
3 Mini1 http://www.pixnet.net/guestbook/Mini1
4 tokyo272652 http://www.pixnet.net/guestbook/tokyo272652
5 nostop http://www.pixnet.net/guestbook/nostop
6 christhinet2 http://www.pixnet.net/guestbook/christhinet2
7 jeffrey7806 http://www.pixnet.net/guestbook/jeffrey7806
8 may510166 http://www.pixnet.net/guestbook/may510166
9 yellow615n http://www.pixnet.net/guestbook/yellow615n
10 lonoiqwaap http://www.pixnet.net/guestbook/lonoiqwaap
11 Rikkuna http://www.pixnet.net/guestbook/Rikkuna
12 ijrny24 http://www.pixnet.net/guestbook/ijrny24
13 bunny18 http://www.pixnet.net/guestbook/bunny18
14 sokuraku http://www.pixnet.net/guestbook/sokuraku
15 miknoilmai http://www.pixnet.net/guestbook/miknoilmai
16 sk2984 http://www.pixnet.net/guestbook/sk2984
17 avon8060 http://www.pixnet.net/guestbook/avon8060
18 blackchick http://www.pixnet.net/guestbook/blackchick
19 ayaneyuri http://www.pixnet.net/guestbook/ayaneyuri
20 kawaii227 http://www.pixnet.net/guestbook/kawaii227
21 titon0323 http://www.pixnet.net/guestbook/titon0323
22 ice868686 http://www.pixnet.net/guestbook/ice868686
23 vk113 http://www.pixnet.net/guestbook/vk113
24 lovingmaymay http://www.pixnet.net/guestbook/lovingmaymay
25 ayumifujiki http://www.pixnet.net/guestbook/ayumifujiki
26 chang578 http://www.pixnet.net/guestbook/chang578
27 stacyqueen http://www.pixnet.net/guestbook/stacyqueen
創作者介紹

神鵰蝦

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


留言列表 (4)

發表留言
  • hohc
  • 關於這個統計留言版

    直接到版面設定開一個新的就好是嗎??!!
  • 這是perl寫的,並無法直接在網頁上執行,要在作業系統的command mode下才能執行。windows os的話可以裝activeperl。

    jck11 於 2007/06/28 09:13 回覆

  • hohc
  • re:統計留言版

    難怪都找不到顯示方法...
    可惜的是作業系統的DOS指令我ㄧ竅不通
  • Julia~
  • 爲啥咪沒有我~我有留言過啊~
  • 是指留言版,不是迴響喔,不過你提醒了我,我下寫個程式來統計迴響的人。

    jck11 於 2007/06/30 23:36 回覆

  • toprich
  • 好羨慕
    流言多到要用程式去抓
  • 只是懶得一個一個找出來 其實也只有27位而以 :)

    jck11 於 2007/06/30 23:35 回覆

找更多相關文章與討論