求助LWP::UserAgent中post问题

Weiping_Zhang

我在使用LWP::UserAgent中post方法时，原网页源代码中用于提交的按钮的name值被设置成“.submit”，value值被设置成"Find Reactions"，我在perl脚本中写成.submit=Find Reactions用于提交数据的时候，出错了。

我不知道应该怎么改，求教各位！

下面是我写的代码：

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

复制代码

请帮忙，谢谢！！

只是一个红薯

1. .submit=>'Find Reactions',

复制代码

这样不合法吧？
代码上用

1. use strict;
   
2. use warnings;

复制代码

post地址好像是这个：http://bigg.ucsd.edu/bigg/main.pl/post.pl
回复 1# Weiping_Zhang


   

mcshell

回复 1# Weiping_Zhang

1. .submit=>'Find Reactions',
   
2. 改成
   
3. ".submit"=>'Find Reactions',
   

复制代码

Weiping_Zhang

回复 2# 只是一个红薯
谢谢！

是不合法，我改用了“.submit”='Find Reactions'虽然合法了，但是还是没有达到提交的目的，不知道该怎么解决。

最后您说“post的地址好像是http://bigg.ucsd.edu/bigg/main.pl/post.pl”，我不太明白是什么意思。。。请指教，谢谢！

   

Weiping_Zhang

回复 3# mcshell

您好！谢谢您的答复。

我尝试了将
.submit='Find Reactions'
改成了：
".submit"='Find Reactions'
虽然没有报错，但是结果还是没有达到submit的效果。不知是何原因。


   

只是一个红薯

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

复制代码

回复 4# Weiping_Zhang