我正在尝试自动化我们大学的用户搜索过程,因为我需要经常使用它。我发现WWW::Mechanize
Perl 是一个很好的方法。但是,当我尝试以下代码时,响应始终是原始网页,而不是我期望的查询结果:
#!/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
。任何帮助是极大的赞赏。