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

$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，我认为它不起作用 . （也没有真正的提交按钮，只需单击事件）

最好的祝福

html forms perl http-post lwp-useragent