人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Perl で google trendsに自動ログインするコードを書きたいのですがうまく行きません。
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);


●質問者: katsuya777
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:Click CPAN CSV DBI FIELD
○ 状態 :終了
└ 回答数 : 1/2件

▽最新の回答へ

1 ● らんさいわ
●60ポイント

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に足してあげてみると上手くいくかもしれません。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ