CPANモジュールにもそれらしいのはみあたらず...
google trendsにアクセスし、検索を行い、結果出力される
CSVファイルをダウンロードするコードを作りたいと思っています。
- http://www.google.com/trends?q=aaa
下記みたいなイメージだと思っているのですが...
どなたか助けて頂けませんでしょうか...
---------------------------------------
use strict;
use warnings;
use Data::Dumper;
use DBI;
use WWW::Mechanize;
# Google Login
my $url = "https://www.google.com/accounts/ServiceLoginAuth";
my $username = 'uenoyama718@gmail.com';
my $password = 'hakusan';
my $mech3 = WWW::Mechanize->new();
$mech3->cookie_jar(HTTP::Cookies->new());
$mech3->get($url);
$mech3->form_number(1);
$mech3->field(Email => $username);
$mech3->field(Passwd => $password);
$mech3->click();
:
以下は参考
# get csv file
my @companis = ...
foreach my $company (@companies) {
my $url2 = 'http://www.google.com/trends/viz?q=' . $company . '&graph=all_csv&sa=N';
$mech2->get($url2);
http://e8y.net/mag/007-www-mechanize/
エラー内容がわからないのでアレですが…
必要なモジュールは全部入ってる前提でのお話になります。
$mech3->form_number(1);
$mech3->field(Email => $username);
$mech3->field(Passwd => $password);
$mech3->click();
この部分を
$mech3->submit_form(
fields => {
Email => 'example@gmail.com',
Passwd => 'example',
},
);
な感じでどうでしょうか…ログイン画面にはフォームが一つしかないので、
submit_formでさっくりいけると思うのですが…
もしフォームが見つからないというエラーの場合には
form_id => 'gaia_loginform',やform_number=> 1
等の要素をsubmit_formに足してあげてみると上手くいくかもしれません。
回答者 | 回答 | 受取 | ベストアンサー | 回答時間 | |
---|---|---|---|---|---|
1 | らんさいわ | 29回 | 23回 | 0回 | 2010-12-22 10:31:37 |
コメント(0件)