Amazon アフィリエイトレポート

Spidering Hacks からの産物。

Amazon のアフィリエイトレポートは、毎回ログインしなきゃいけなくて面倒なので、こんなスクリプトで自動化。

#!/usr/local/bin/perl -w
use strict;
use MIME::Lite;
use WWW::Mechanize;

my $email = 'your-email-address';
my $password = 'XXXXXXXX';

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

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

$mech->get($start);
$mech->follow_link(url_regex => qr/associates\.html/);
$mech->follow_link(url_regex => qr!panama/associates/resources!);

$mech->form_number(1);
$mech->field(login_id => $email);
$mech->field(login_password => $password);
$mech->click();

$mech->follow_link(url_regex => qr/reporting/);
$mech->follow_link(url_regex => qr/traffic/);

$mech->form_number(1);
$mech->field("report-type" => "traffic-by-item-orders");
#$mech->field("date-selection" => "qtd");
$mech->click("submit.download");

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();

あとはこいつを cron あたりで動かしてやればOK。デフォルトでは前日(?) の分の商品別注文レポートがでますが、コメントアウトされている qtd のとこを有効にすると、現四半期になります。その他のパターンが欲しいひとは WWW::Mechanize のドキュメントを読んで頑張るべし。