use WWW::Mechanize; my $mech = WWW::Mechanize->new( autocheck => 0); my $fieldname = 0; #login $url="http://@ARGV[0]"; $mech->get( $url ); my $count = 1; for my $form ($mech->forms) { print "form $count fields are:\n"; $count; for ($form->param) { # printf "%s - %s\n", $_, $form->value($_); #print $form->value($_); # print %s; } # print "\n"; }
In reply to $mech help by helpme123
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |