まぶしくてほとんど何も見えない状態だったのに
写真で撮ると普通なのが残念。

うおおぉお、 焼かれる・・・
とか妄想を楽しみました。

コレみてたら地球防衛軍３が欲しくなったんだけど、XBOX360かぁ・・・

なんか桜坂消防隊っぽくて好きなんだけどな

しょうがないなので 前作だけど、PS2の地球防衛軍２を買ってみた。
盆休みはコレ三昧って事でどっすか

ペイントブラシでささーっとね。

昔、cosmosAロゴを描いてた時と同じ感覚でね。


1024 x 768 の壁紙なんですけど

ケロロ軍曹、タママ二等兵、ギロロ伍長の絵。

・・・

・・・・・

・・・・・・・・

・・・・・・・・・！！！！


これはやばいっす

とてもじゃないけど
人に見せられない。見せる度胸がない。

注目商品１０件を追加した影響なのか、
○ファイナルファンタジーXI オリジナル・サウン...
○ファイナルファンタジーXI アトルガンの秘宝 ...
○プレイオンライン/ ファイナルファンタジーXI ...
のクリック数が ５０００とか３０００とかなんですけど
しかも一日で。

他のは相変わらず一桁台のクリック数なのに。

Amazon アフィリエイトレポート
しげふみメモ:PlaggerでAmazonアソシエイトレポートをGmailへ送る

ここらへんを参照したんですが、「Amazon アソシエイト・セントラル」が
リニューアルされていて、そのままでは使えなくなっていました。
そこで これを元に修正して 現在使ってるのが以下のとおりになります。

---

#!/usr/local/bin/perl -w

use strict;
use MIME::Lite;
use WWW::Mechanize;

my $email = 'ログインID';
my $password = 'ログインパスワード';

my $start = "http://affiliate.amazon.co.jp/";

my $mech = WWW::Mechanize->new();
$mech->agent_alias('Windows IE 6');

$mech->get($start);

$mech->form_number(2);
$mech->field(email => $email);
$mech->field(password => $password);
$mech->click();

$mech->follow_link(url_regex => qr/reportType=earningsReport/);

$mech->form_number(3);
#$mech->field("reportType" => "earningsReport");
$mech->field("reportType" => "ordersReport");
#$mech->field("preSelectedPeriod" => "yesterday");
$mech->field("preSelectedPeriod" => "lastSevenDays");
#$mech->field("preSelectedPeriod" => "monthToDate");
#$mech->field("preSelectedPeriod" => "lastMonth");
#$mech->field("preSelectedPeriod" => "QuarterToDate");
$mech->click("submit.download_XML");

#メールで送信する場合
my $report = $mech->content();

my $mime = MIME::Lite->new(
To => $email,
From => $email,
Subject => "Amazon Affiliate Report",
Type => "text/plain; charset=Shift_JIS",
Encoding => "8bit",
Data => $report,
);
$mime->send();
#ファイルに書き出す場合
#open(OUT,'> amazon.xml');
#print OUT $report;
#close(OUT);
#print $report;

cosmosAからのアマゾン商品クリックや
購入をもとに　ランキングを表示するようにしました。

右下の「注目商品１０件」です。

ニコニコ動画のニコニコ市場にようにしたかったんですけど
購入数とか少ないのでこんな感じで。

結構苦労しましたよ