对一个form用post提交数据，如何设置submit?

hztj2005

以下代码来自《Perl & LWP》76页，由于该书出版于2002年后，一直没有再版，
代码中要提交的网页http://dogbert.abebooks.com/abe/BookSearch'  已经变为
'’https://www.abebooks.com/servlet/SearchEntry?errorcode=1',而其中Form数据项也变了。
最主要的是原来是用一个多值Button提交数据，现在确实一个无值Submit，
我这方面是菜鸟，就不知如何处理了。

现在的网页源码：
<BUTTON tabindex="25" class="btn btn-abebooks btn-xs-block"
id="search-button" type="submit">Find Book</BUTTON>

所以 原来的  "bu" => "Start Search"，必须修改，请教如何修改？

1. #!/usr/bin/perl -w
   
2. # seraph.pl - search for Codex Seraphinianus on abebooks
   
3. 
   
4. use strict;
   
5. my $out_file = "result_seraph.html";  # where to save it
   
6. 
   
7. use LWP;
   
8. my $browser = LWP::UserAgent->new;
   
9. my $response = $browser->post(
   
10.   'https://www.abebooks.com/servlet/SearchEntry?errorcode=1',#原来：http://dogbert.abebooks.com/abe/BookSearch',
    
11.    # That's the URL that the real form submits to.
    
12.   [
    
13.     #"ph" => "2",
    
14.     "an" => "",
    
15.     "tn" => "Codex Seraphinianus",#标题
    
16.     "pn" => "",
    
17.     "sn" => "", #书号
    
18.     #"gpnm" => "All Book Stores",
    
19.     #"cty" => "All Countries",
    
20.     "bi" => "Any Binding",#绑定包装
    
21.     "prl" => "",#最低价格
    
22.     "prh" => "",
    
23.     "sortby" => "0",#排序方式
    
24.     #"ds" => "100",
    
25.     #"bu" => "Find Book", #这个无效了，那么如何修改，才能提交？？？？？
    
26.   ]
    
27. );
    
28. 
    
29. die "Error: ", $response->status_line, "\n"
    
30. unless $response->is_success;
    
31. 
    
32. open(OUT, ">$out_file") || die "Can't write-open $out_file: $!";
    
33. binmode(OUT);
    
34. print OUT $response->content;
    
35. close(OUT);
    
36. print "Bytes saved: ", -s $out_file, " in $out_file\n";

复制代码

zhouzhen1

如果是出于实用角度的话，现在没必要用直接LWP来做这种表单提交。可以用WWW::Mechanize或者WWW::Mechanize:hantomJS。（后者能运行页面js）

比如，

1. 
   
2. use WWW::Mechanize::PhantomJS;
   
3. my $mech = WWW::Mechanize::PhantomJS->new();
   
4. 
   
5. $mech->get('https://www.abebooks.com/servlet/SearchEntry');
   
6. $mech->submit_form(
   
7.     with_fields => {
   
8.         tn => q{"programming perl"}
   
9.     }   
   
10. );
    
11. say $mech->content;
    

复制代码

如果出于学习研究LWP角度的话，可以先用Chrome的debug模式看一下手工操作时post的是什么数据，再去调整脚本代码。

zhouzhen1

重复发帖，已删

zhouzhen1

重复发帖，已删

zhouzhen1

重复发帖，已删

zhouzhen1

重复发帖，已删

zhouzhen1

重复发帖，已删

zhouzhen1

话说自己能把自己发的楼删掉吗？昨天论坛抽风，发了几次都以为发不出去，结果却是发了好几遍。。。

hztj2005

回复 8# zhouzhen1
不能整楼删除，但可把主要内容删掉，写上“电脑出错，重复发帖。”

dalian_gq

回复 2# zhouzhen1

出错了，为什么？
E:\Perl\sd-1>perl ttt.pl
'phantomjs' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
Selenium server did not return proper status at C:/Perl64/site/lib/Selenium/Remote/Driver.pm line 397.

运行到这句就出错。  my $mech = WWW::Mechanize:hantomJS->new();

我的环境

E:\Perl\sd-1>perl -v

This is perl 5, version 16, subversion 3 (v5.16.3) built for MSWin32-x64-multi-thread
(with 1 registered patch, see perl -V for more detail)