ペタリスト
ペタボタンが小さいのでペタを返すのが大変だったのでこんなの作ってみました。
CYGWINのperlで動作しています。
リストができたらgoogleのcｈromeで開くとさらに快適です。
#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
my $ownId = "bomb813";
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,">", $ownId . ".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 . "さん";
# print "===[" . $amebaId . "]===>" . $Line . "\n";
}elsif($Line =~ /^.a href..http...ameblo.jp\/([^\/]+)\/.*ブログ\"\>$/){
$amebaId = $1;
if( not exists($idList{$amebaId}) ){
$petaCount++;
$idList{$amebaId} = $petaCount;
print HTMLFILE "<a href=\"http://peta.ameba.jp/p/addPeta.do?targetAmebaId
=" . $amebaId .
"\" Target=\"_blank\">" . $petaCount . ". " . $imageUrl . $amebaName ."</a><br>\n";
}
}elsif($Line =~ /a href=\"([^"]+)\".*次へ/){
$nextHttp = "http://peta.ameba.jp
" . $1;
# print "NEXT[http://peta.ameba.jp" . $nextHttp . "]" . $Line . "\n";
# リクエストを作成します
$req = new HTTP::Request GET => $nextHttp;
# ユーザ・エージェントにリクエストを渡し、返されたレスポンスを取得します
$res = $ua->request($req);
}elsif($Line =~ /^<div class=\"date\">(.*)<\/div>$/){
print HTMLFILE $1 . "<br>\n";
}else{
# print $Line . "\n";
}
}
} else {
print "Bad luck this time\n";
}
$petaPage++;
}
print HTMLFILE "</BODY></HTML>\n";
close(HTMLFILE);
exit;
恋人からは
ブログネタ：恋人からの連絡、メールと電話、どっちがいい？
参加中All About 「恋愛」 恋のモチベーションUP！愛されメール術
それは・・・
ブログネタ：寝付きと寝起き、抜群に良くなりたいのは？ 参加中やっぱり、寝付きでしょう。
寝付きがよければ、それだけ長い時間寝ることができます。
長い移動時間の間に少しでも寝ることができれば
少しは疲れが取れるんじゃないかな。
だけど、寝過ごすと終点なんてとんでもないことになっちゃうけどね