Html 使用Perl:LWP自动填写和提交表单
我刚刚开始使用perl进行web编程,我正在尝试编写一个perl脚本,该脚本将进入网页(), 填写输入文本字段,然后提交表单。由于它不起作用,我想知道如果不是我已经尝试过的那个,我应该给“post”什么urlHtml 使用Perl:LWP自动填写和提交表单,html,forms,perl,http-post,lwp-useragent,Html,Forms,Perl,Http Post,Lwp Useragent,我刚刚开始使用perl进行web编程,我正在尝试编写一个perl脚本,该脚本将进入网页(), 填写输入文本字段,然后提交表单。由于它不起作用,我想知道如果不是我已经尝试过的那个,我应该给“post”什么url $ua = new LWP::UserAgent(keep_alive => 0); $ua->proxy('http', $proxy); $cookie_jar = new HTTP::Cookies(); $ua->cookie_j
$ua = new LWP::UserAgent(keep_alive => 0);
$ua->proxy('http', $proxy);
$cookie_jar = new HTTP::Cookies();
$ua->cookie_jar($cookie_jar);
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1; .NET CLR 2.0.50727)');
$url ='http://211.157.104.77:8080/sipo_EN/search/tabSearch.do?method=search';
$response = $ua->post( $url, { a => "03085931", b => "",
c => "",d => "",e => "",
f => "",g => "",h => "",
i => "",j => "",k => "",
l => "",m => "",
} );
$cgi = CGI->new();
print $cgi->header(), $response->content();
填写表单后,网页返回一个文档的结果列表,我希望在最后访问该列表。我已经试过了,也读过关于WWW::Mechanize的文章,但是由于我想访问的页面拥有javascript,我认为它不起作用。(也没有真正的提交按钮,只需单击事件)
致以最诚挚的问候如果您拥有该资源,那么您只需定义并调用适当的API即可获得所需的资源。这比用JS引擎模拟全尺寸浏览器和能够通过验证码的人要容易得多。如果您不拥有该资源,并且该资源没有向您公开任何适当的API,那么这似乎有点像黑帽黑客攻击,不是吗?@a1111exe我不拥有该资源,我只想在网页上启动一个进程并获取搜索结果。。应该是可能的吗?如果您拥有资源,那么您可以定义并调用适当的API来获得您所需要的。这比用JS引擎模拟全尺寸浏览器和能够通过验证码的人要容易得多。如果您不拥有该资源,并且该资源没有向您公开任何适当的API,那么这似乎有点像黑帽黑客攻击,不是吗?@a1111exe我不拥有该资源,我只想在网页上启动一个进程并获取搜索结果。。这应该是可能的吗?