我正在尝试使用Perl脚本中的Mechanize登录该站点。它确实登录到索引页面,但我尝试获取存在文件超链接的页面的内容,然后我没有登录,我假设在查看页面内容后
其次,我们如何从文件的间接超链接下载文件,该文件指向某个操作,然后下载文件。请指导,因为此特定用例没有太多帮助
下面是我的代码
use WWW::Mechanize;
use LWP;
my $username = 'user';
my $password = 'pass';
my $mech = WWW::Mechanize->new();
$mech -> cookie_jar(HTTP::Cookies->new());
$mech -> get('some_website/index.html?#');
$mech -> form_name('form');
$mech -> field ('user' => $username);
$mech -> field ('password' => $password);
$mech->submit();
$mech -> get('actual_page_address_with_file_hyperlinks?adfgenDispatchAction=examine&idProgressivo=0&idFlusso=4200212');
#print $mech-> content();
$mech->save_content("result.html");
my @links = $mech->links();
for my $link ( @links ) {
#if(index($link->text,"Scarica")!= -1)
#{
printf "%s, %sn", $link->text, $link->url;
#}
}
;
由于网站使用的是 CSRF 令牌,并且登录页面中没有定义隐藏标记来存储 CSRF 令牌,因此脚本中的令牌生成没有帮助。
我使用WWW::Selenium,我能够登录该网站并下载文件。问题已解决 –