[Perl] AdSenseChecker

Descrizione
Controlla le entrate su AdSense.

Leggenda
* Riga troncata.

Codice
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );
print "Adsense\n";
$mech->get( 'https://www.google.com/accounts/Login?continue=http://www.google.it/search%3Fhl%3Dit%26client%3Dfirefox-a%26channel%3Ds%26rls%3Dorg.mozilla:it:official%26hs%3DN7p%26pwst *
%3D1%26q%3 *
Dadsense%2Bchecker%2Bsource%26start%3D10%26sa%3DN&hl=it');
$var=$mech->content;
$mech->submit_form(
form_number => 1,
fields => {
Email => 'tuaemail',
Passwd => 'tuapass',
}
);

$var2=$mech->content;
$mech->get('https://www.google.com/accounts/ServiceLoginBox?service=adsense&ltmpl=login&ifr=true&rm=hide&fpui=3&nui=15&alwf=true&passive=true&continue=https%3A%2F%2Fwww.google.com%2Fadsense%2Flogin-box-gaiaauth&followup=https%3A%2F%2Fwww.google.com%2Fadsense%2Flogin-box-gaiaauth&hl=it');
$var5=$mech->content;
if ($var5 =~ m/<center><a target="_top" href="(.*)" style="font-family: Arial, Helvetica, sans-serif; font-size: smaller;">/g){
$mech->get("$1");
$var3=$mech->content;
}
while($var3=~ m/<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>/g){
print "Oggi\n";
print "Impressioni su pagina: $1\nClick: $2\nCTR della pagina: $3\nPagina eCPM: $4\nEntrate: $5";
$mech->get("https://www.google.com/adsense/report/overview?timePeriod=alltime");
$vari = $mech->content;
while($vari=~ m/<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>/g){
print "\n\nTotale\n";
print "Impressioni su pagina: $1\nClick: $2\nCTR della pagina: $3\nPagina eCPM: $4\nEntrate: $5\n";
}
}
system("pause");