why when I use html::form $input->name work,$input->value doesn't work ?

fanasy has asked for the wisdom of the Perl Monks concerning the following question:

follow context is html input
<input type="checkbox" id="chkboxProid4" value="45978663" name="rproid[]" v="1" onclick="selected('apf_id_15','chkboxProid4','myxxxxx1')" />

use diagnostics;
use WWW::Mechanize; 
use Data::Dumper; 
use HTML::Form;
use Encode;
use WWW::Mechanize::Plugin::Display;
my $name = Encode::decode('GB2312', '&#21047; &#26032;'); 
my $CACTIURL = "xxxxxxxxxxxxx";
my $ADMINPASSWORD = "zhiyuan"; 
my $mech = WWW::Mechanize->new(); 
$mech->get($CACTIURL); 
$mech->set_visible("xxxxxx", $ADMINPASSWORD); 
$mech->click;
my $link_m = $mech->find_link(url_regex => qr/W0QQactZsale/);
my $value_hash =$link_m->url();
$mech->get($link_m);
$mech->form_number(2); 
my @inputs = $mech->current_form()->inputs();
#print "inputs: @inputs\n";
          foreach my $input2 (@inputs) {
           my $input_type= $input2->type; 
           my $input_id= $input2->id; 
           my $input_value= $input2->value; 
           my $input_name= $input2->name; 
if ($input_type eq "checkbox") { 
           print "LOG: input_name $input_name\n";
           print "LOG: input_id $input_id\n";
           print "LOG: input_value $input_value\n";
           #$mech->field($input2=>'on');
           $mech->tick($input2->name,$input2->value);
                              }
                                }
           $mech->display;
          foreach my $input3 (@inputs) {
          my $input_value =$input3->id;
          #print "LOG:input_value $input_value\n";
          if($input_value eq "fresh0"){
                  #print "LOG:input3 $input3\n";
                  $mech->click_button(input=>$input3);
                                     }
                                }
[download]

sorry, please help me on my question is " why the module html::form $input->name work,$input->value doesn't work" under the html context:
<input type="checkbox" id="chkboxProid4" value="45978663" name="rproid[]" v="1" onclick="selected('apf_id_15','chkboxProid4','myxxxxx1')" />

Comment on why when I use html::form $input->name work,$input->value doesn't work ? Download Code

Replies are listed 'Best First'.
Re: when use html::form $input->name work,$input->value doesn't work by Tanktalus (Canon) on Nov 14, 2010 at 05:28 UTC
And the question is...? Please see How (Not) To Ask A Question	[reply]
Re: why when I use html::form $input->name work,$input->value doesn't work ? by Anonymous Monk on Nov 14, 2010 at 06:05 UTC
why the module html::form $input->name work,$input->value doesn't work" Well, for starters, there is no such variable $input anywhere in your code	[reply]
Re^2: why when I use html::form $input->name work,$input->value doesn't work ? by fanasy (Sexton) on Nov 14, 2010 at 06:56 UTC
Thanks for your replay the input is : `my $CACTIURL = "http://www.xxx.com"; $mech->get($CACTIURL); $mech->set_visible("xxxxxx", $ADMINPASSWORD); $mech->click; my @inputs = $mech->current_form()->inputs(); foreach my $input2 (@inputs) { my $input_type= $input2->type; my $input_id= $input2->id; my $input_value= $input2->value; my $input_name= $input2->name;` [download]	[reply] [d/l]
Re^3: why when I use html::form $input->name work,$input->value doesn't work ? by Corion (Patriarch) on Nov 14, 2010 at 09:04 UTC
In what sense does it "not work"? Does your script crash? Does it return the wrong values? Note that WWW::Mechanize does not understand Javascript and the HTML input has an `onclick` attribute, which usually is connected to Javascript.	[reply] [d/l]
Re^4: why when I use html::form $input->name work,$input->value doesn't work ? by fanasy (Sexton) on Nov 14, 2010 at 11:17 UTC
Re^4: why when I use html::form $input->name work,$input->value doesn't work ? by fanasy (Sexton) on Nov 14, 2010 at 11:08 UTC
Re^5: why when I use html::form $input->name work,$input->value doesn't work ? by Corion (Patriarch) on Nov 14, 2010 at 11:14 UTC
Some notes below your chosen depth have not been shown here


Think about Loose Coupling
	PerlMonks