いまさらですけど、サイト更新してます。ほとんどPVもなくなっている状態なので、アフェリエイトとかやってもあんまりあれなんですが、複数のアカウントでいちいちログインするのも面倒で、ログインしても報酬ゼロとかでがっくりなのでとりあえずリンクシェア（LinkShare）の分は自動化してみました。
リンクシェアの売り上げレポートは以下のAPIで取得できるので、Perlで処理してメール送信するという簡単なものでひとまずいいかなー、と。実際には売り上げがない日はメールを送らないとかいろいろ処理してますが、ひとまず、今月の報酬合計を計算するのを置いておきます(ヽ´ω`)
http://cli.linksynergy.com/cli/publisher/reports/downloadReport.php?bdate=YYYYMMDD&edate=YYYYMMDD&cuserid=userid&cpi=password
いまさらですけど、サイト更新してます。ほとんどPVもなくなっている状態なので、アフェリエイトとかやってもあんまりあれなんですが、複数のアカウントでいちいちログインするのも面倒で、ログインしても報酬ゼロとかでがっくりなのでとりあえずリンクシェア（LinkShare）の分は自動化してみました。
リンクシェアの売り上げレポートは以下のAPIで取得できるので、Perlで処理してメール送信するという簡単なものでひとまずいいかなー、と。実際には売り上げがない日はメールを送らないとかいろいろ処理してますが、ひとまず、今月の報酬合計を計算するのを置いておきます(ヽ´ω`)
http://cli.linksynergy.com/cli/publisher/reports/downloadReport.php?bdate=YYYYMMDD&edate=YYYYMMDD&cuserid=userid&cpi=password
#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::Simple;
use utf8;# 日付処理
my ($day, $mon, $year) = localtime(time – 24 * 60 * 60)[3,4,5];
$year += 1900;
$mon++;
$mon = “0$mon” if $mon < 10;
$day = “0$day” if $day < 10; # APIのURL作成
my $username = ‘username’;
my $password = ‘password’;
my $bdate = $year.$mon.”01″;
my $edate = $year.$mon.$day;
my $url = “http://cli.linksynergy.com/cli/publisher/reports/downloadReport.php?bdate=$bdate&edate=$edate&cuserid=$username&cpi=$password”;# データ取得
my $data = get($url);
die “Cant get $url\n” unless defined $data;# データ処理
my @data = split(“\n”, $data);
shift @data;
my $price_total = 0;
foreach(@data) {
my ($date, $price) = (split(“\t”, $_))[4,9];
next unless ($date =~ s#^$mon##);
$price_total = $price_total + $price;
}exit;
