Perl WWW::Mechanize 返回页面而不是响应

Perl WWW::Mechanize 返回页面而不是响应

我正在尝试自动化我们大学的用户搜索过程,因为我需要经常使用它。我发现WWW::MechanizePerl 是一个很好的方法。但是,当我尝试以下代码时,响应始终是原始网页,而不是我期望的查询结果:

#!/usr/local/bin/perl

use WWW::Mechanize;
my $mech = WWW::Mechanize->new();

$mech->get('http://find.pitt.edu');
$mech->submit_form(
    form_number => 1,
    fields    => { query  => 'Barroso', },
    button    => 'ctl00$ContentPlaceHolder1$btnSearchAll'
);

$mech->success or die "post failed: ", $mech->response->status_line;
print $mech->content_type();
print $mech->response()->content();

我对 Perl 还很陌生,所以我做了一些明显错误的事情,但在阅读文档后无法弄清楚WWW::Mechanize。任何帮助是极大的赞赏。

相关内容