求求求求求求助！LWP：：UserAgent提交不上去

Weiping_Zhang

在使用LWP：：UserAgent操作网页时，到提交表格内容的一步卡住了，一点解决问题的想法都没有。我看了很多其他代码，我和他们都是一样用的，唯一区别在于一般的提交按钮的name值是submit，而我的多了一点，是“.submit”。是这一点出了问题么，该如何解决？

附上代码：

1. #!/usr/bin/perl -w
   
2. 
   
3. use LWP::UserAgent;
   
4. use WWW::Mechanize;
   
5. 
   
6. my $ua=LWP::UserAgent->new;
   
7. $ua->timeout(10);
   
8. my $url='http://bigg.ucsd.edu/bigg/main.pl';
   
9. 
   
10. my $req = $ua->post($url,
    
11.         [       
    
12.                 "organism"=>'222668',
    
13.                 "is_associated"=>'yes',
    
14.                 "is_associated"=>'no',
    
15.                 "is_translocation"=>'yes',
    
16.                 "is_translocation"=>'no',
    
17.                 "exchanges"=>'yes',
    
18.                 "exchanges"=>'no',
    
19.                 "reversibility"=>'Reversible',
    
20.                 "reversibility"=>'Irreversible',
    
21.                 "confidence"=>'not evaluated',
    
22.                 "confidence"=>'modeling evidence',
    
23.                 "confidence"=>'biological evidence',
    
24.                 "locus_text"=>'ALD6',
    
25.                 ".submit"=>'Find Reactions',
    
26.         ]
    
27. );
    
28. 
    
29. 
    
30. if ($req->is_success) {
    
31.         print "Bingo!\n";
    
32. }else{
    
33.         print $req->status_line,"\n";
    
34.         print $req->message;
    
35. };
    
36. 
    
37. my $b=$req->content();       
    
38. open (LOG, ">1.txt");
    
39. print LOG $b;
    

复制代码

mitiao

1. my $url='http://bigg.ucsd.edu/bigg/main.pl';

复制代码

改成

1. my $url='http://bigg.ucsd.edu/bigg/post.pl';

复制代码

post 里添加

1. "compartment_list"=>'any',
   
2. "pathway_list"=>'any',

复制代码

Weiping_Zhang

回复 2# mitiao


哇，谢谢，谢谢！困扰了我好两天了，终于解决了，太感谢了~

能否再请教您一下:
1、为什么我明明提交的网页地址是：

1. http://bigg.ucsd.edu/bigg/main.pl

复制代码

；
但却要写成下面这个呢？

1. http://bigg.ucsd.edu/bigg/post.pl

复制代码

；
2、post中加上下面两段代码是为什么？

1.        "compartment_list"=>'any',
   
2.                 "pathway_list"=>'any',

复制代码

谢谢您！