使用html::form的 $input->name 成功,$input->value不成功

fanasy

以下是html的内容input
                                        <input  type="checkbox" id="chkboxProid4" value="45978663" name="rproid[]" v="1" onclick="selected('apf_id_15','chkboxProid4','myxxxxx1')" />

1. use diagnostics;
   
2. use WWW::Mechanize;
   
3. use Data::Dumper;
   
4. use HTML::Form;
   
5. use Encode;
   
6. use WWW::Mechanize::Plugin::Display;
   
7. my $name = Encode::decode('GB2312', '刷 新');
   
8. #my $CACTIURL = "xxxxxxxxxxx";
   
9. my $CACTIURL = "xxxxxxxxxxxxx";
   
10. my $ADMINPASSWORD = "zhiyuan";
    
11. #打开浏览器
    
12. my $mech = WWW::Mechanize->new();
    
13. #输入网址
    
14. $mech->get($CACTIURL);
    
15. #输入用户名密码
    
16. $mech->set_visible("xxxxxx", $ADMINPASSWORD);
    
17. $mech->click;
    
18. #点击登陆
    
19. my $link_m = $mech->find_link(url_regex => qr/W0QQactZsale/);
    
20. my $value_hash =$link_m->url();
    
21. $mech->get($link_m);
    
22. $mech->form_number(2);
    
23. my @inputs = $mech->current_form()->inputs();
    
24. #print "inputs: @inputs\n";
    
25.           foreach my $input2 (@inputs) {
    
26.            my $input_type= $input2->type;
    
27.            my $input_id= $input2->id;
    
28.            my $input_value= $input2->value;
    
29.            my $input_name= $input2->name;
    
30. if ($input_type eq "checkbox") {
    
31.            print "LOG: input_name $input_name\n";
    
32.            print "LOG: input_id $input_id\n";
    
33.            print "LOG: input_value $input_value\n";
    
34.            #$mech->field($input2=>'on');
    
35.            $mech->tick($input2->name,$input2->value);
    
36.                               }
    
37.                                 }
    
38.            $mech->display;
    
39.           foreach my $input3 (@inputs) {
    
40.           my $input_value =$input3->id;
    
41.           #print "LOG:input_value $input_value\n";
    
42.           if($input_value eq "fresh0"){
    
43.                   #print "LOG:input3 $input3\n";
    
44.                   $mech->click_button(input=>$input3);
    
45.                                      }
    
46.                                 }

复制代码

麻烦熟悉html::form的看一下，不知道是不是和value是数字有关？

代码是为了实现自动 点击 指定的checkbox