我正在尝试使用 Perl 的WWW::Mechanize登录我的银行并提取交易信息。通过浏览器登录我的银行(富国银行)后,它会短暂显示一个临时网页,上面写着“请稍候,我们正在验证您的身份”。几秒钟后,它进入银行的网页,我可以在其中获取我的银行数据。唯一的区别是 URL 包含更多附加到临时页面 URL 的“GET”参数,该临时页面只有一个 sessionID 参数。
我能够成功地让 WWW::Mechanize 从登录页面登录,但它卡在了临时页面上。标题中有一个<meta http-equiv="Refresh"
... 标签,所以我尝试了,$mech->follow_meta_redirect
但它也没有让我通过那个临时页面。
任何帮助克服这一点将不胜感激。提前致谢。
这是让我卡在临时页面的准系统代码:
#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->agent_alias( 'Linux Mozilla' );
$mech->get( "https://www.wellsfargo.com" );
$mech->submit_form(
form_number => 2,
fields => {
userid => "$userid",
password => "$password"
},
button => "btnSignon"
);