petaListをちょっと改良
ペタしてくれた人のブログへのリンクを追加、フレーム構成とすることでクリック回数を削減した
だけど弊害があってペタの間隔が早すぎて３秒待てと怒られてしまう（/TДT)/
-------------------------------------------
以下のフレームの入ったHTMLをpetaList.htmlとする。Perlスクリプトを実行後に、このHTMLを開くとよい
-------------------------------------------
<html>
<head>
<title>Ameba ペタリスト</title>
</head>
<frameset cols="30%,*">
<frame src="amebaPeta.html">
<frame src="amebaPeta.html" name="AmebaPeta">
</frameset>
</html>
-------------------------------------------
perlスクリプトもちょっと改良してブログへのリンクを追加、開く先をフレームの名前に変更
-------------------------------------------
#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
my $ownId = "yourAmebaId";
my $pageCount = 100;
if( @ARGV > 0 ){
$pageCount = $ARGV[0];
if( @ARGV > 1 ){
$ownId = $ARGV[1];
}
}
my $petaPage = 0;
my $amebaId = "";
my $amebaName = "";
my $imageUrl = "";
my $nextHttp = "";
my $petaCount = 0;
my %idList;
my $requestLine = "http://peta.ameba.jp/p/addPeta.do?targetAmebaId
=" . $ownId;
open(HTMLFILE,">amebaPeta.html");
# GET準備
my $ua = new LWP::UserAgent;
# リクエストを作成します
my $req = new HTTP::Request GET => $requestLine;
# ユーザ・エージェントにリクエストを渡し、返されたレスポンスを取得します
my $res = $ua->request($req);
print HTMLFILE "<HTML><HEAD>\n";
print HTMLFILE "<meta http-equiv=\"content-language\" content=\"ja\" />\n";
print HTMLFILE "<meta http-equiv=\"content-type\" content=\"text/html; charset=UTF-8\" />\n";
print HTMLFILE "</HEAD><BODY><br>\n";
while( $petaPage < $pageCount ){
# レスポンスの結果をチェックします
if ($res->is_success) {
foreach my $Line (split(/\n/,$res->content)){
if($Line =~ /^(.img.*") alt.*imageResize.*a.$/){
$imageUrl = $1 . "/>";
}elsif($Line =~ /^(.*)<\/a>さん$/){
$amebaName = $1 . "さん";
}elsif($Line =~ /^.a href..http...ameblo.jp\/([^\/]+)\/.*ブログ\"\>$/){
$amebaId = $1;
if( not exists($idList{$amebaId}) ){
$petaCount++;
$idList{$amebaId} = $petaCount;
print HTMLFILE "<a href=\"http://ameblo.jp/
" . $amebaId . "/\" Target=\"AmebaPeta\">"
. $petaCount . ".ブログ</a><a href=\"http://peta.ameba.jp/p/addPeta.do?targetAmebaId
="
. $amebaId . "\" Target=\"AmebaPeta\">" . $imageUrl . $amebaName ."</a><br>\n";
}
}elsif($Line =~ /a href=\"([^"]+)\".*次へ/){
$nextHttp = "http://peta.ameba.jp
" . $1;
# リクエストを作成します
$req = new HTTP::Request GET => $nextHttp;
# ユーザ・エージェントにリクエストを渡し、返されたレスポンスを取得します
$res = $ua->request($req);
}elsif($Line =~ /^<div class=\"date\">(.*)<\/div>$/){
print HTMLFILE $1 . "<br>\n";
}
}
} else {
print "Bad luck this time\n";
}
$petaPage++;
}
print HTMLFILE "</BODY></HTML>\n";
close(HTMLFILE);
exit;
ビーフシチューには
ブログネタ：ビーフシチューにはパン派？ライス派？
参加中私はライス 派！
日本人たるもの当然「ご飯」です！！＼(*｀∧´)／
ほろほろと崩れる牛肉には真っ白なご飯が最高です。(o^-')b
けど、そんなわがまま言ってると女の子に嫌われちゃうかな。(ﾉ_･｡)
大好きな人が作ってくれたものなら、どんなものでも、
「おいしい、おいしい」っていって全部たいらげるのが一番です。
- ビーフシチューにはパン派？ライス派？
- パン
- ライス
