Question

我刚进入使用perl的web编程，我正在尝试编写一个将转到网页（http://211.157.104.77:8080/sipo_EN/search/tabSearch.do?method=init）的perl脚本，填写输入文本字段，然后提交表单。由于它不起作用，我想知道我应该给什么网址＆＃34; post＆＃34;如果不是我已经尝试过的那个。

   $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的页面，我认为它不会起作用。（也没有真正的提交按钮，只需点击活动）

祝你好运

使用Perl自动填写和提交表单：LWP

0 个答案: