1

我需要解析由 ASP 操作 (LoadDialog) 生成的列表,但我不知道如何完成它。如果我执行以下操作,我只会得到一个空的 HTML 文件。

#!/usr/bin/perl -w
#
#
use strict;
use WWW::Mechanize;
use HTTP::Cookies;

my $url = "http://MYURL/LOGIN";
my $appurl = "http://MYURL/SOME.asp"; 

#SOME.asp calls http://MYURL/SOME.asp?Action=LoadDialog" to get results

my $username = 'username';
my $password = 'password';

#login to site 
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
$mech->form_name('login');
$mech->field(UserName => $username);
$mech->field(Password => $password);
$mech->click();

# get results from LoadDialog (?!)
$mech->get($appurl);
my $app_content = $mech->content();
print "$app_content\n";

Firebug 告诉我?Action=LoadDialog上面提到的 URL 正在调用它,但 Mechanize 没有意识到它(猜测)。

简单地$myappurl更改http://MYURL/SOME.asp?Action=LoadDialog为也给了我一个空的 HTML 文件。

有没有机会获得 ASP 生成的内容?我不能使用任何其他“运行浏览器”的 Perl 模块,我需要找到一个可在 shell 中使用的解决方案。

提前致谢,马利

4

0 回答 0