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);
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
みんなの回答
-
らんさいわ
満足60pt
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に足してあげてみると上手くいくかもしれません。
まだオープンされてない回答
この質問へのコメント
質問の情報
- 登録日時
- 2010-12-21 18:15:45
- 終了日時
- 2010-12-28 18:20:04
- 回答条件
- 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
3
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者21
-
内定してほしいポケモンはいますか？匿名質問者