Just a Crawler

use strict;

use WWW::Mechanize;

use HTTP::Cookies;

###go to login page and login.

#my $url = 'https://www.google.com/accounts/ServiceLogin?hl=en&service=finance&nui=1&continue=http%3A%2F%2Ffinance.google.com%2Ffinance';

my $url = 'https://accounts.google.com/ServiceLogin';

my $username = $ARGV[0];

my $password = $ARGV[1];

my $keyword = $ARGV[2];

my $outputfile = $ARGV[3];

chomp($username);

chomp($password);

chomp($keyword);

chomp($outputfile);

print "usr: $username\n";

print "psw: $password\n";

print "keyword: $keyword\n";

print "output: $outputfile\n";

print "Searching ......\n";

my $mech = WWW::Mechanize->new();

$mech->cookie_jar(HTTP::Cookies->new());

$mech->get($url);

$mech->form_number(1);

$mech->field(Email => $username);

$mech->field(Passwd => $password);

$mech->click();

#Go to the next link, now that we are logged in.

#$url = 'http://www.google.com/trends/viz?q=alan+kay&graph=all_csv&sa=N';

$url = 'http://www.google.com/trends/viz?q='.$keyword.'&date=all&geo=cn&graph=all_csv&scale=1&sa=N';

#$url = 'http://finance.google.com/finance/portfolio?action=view&pid=1&pview=pview&output=csv';

$mech->get($url);

my $output_page = $mech->content();

my $fh;

open $fh, ">$outputfile";

print $fh $output_page;