Perl：爲網頁中的所有表單字段找到值

Question

我當前的程序可以打印所有形式的名稱爲字段的網頁，我也想打印當前值。

use WWW::Mechanize; 
use LWP::UserAgent; 
my $m = WWW::Mechanize->new(); 
$m->get("http://www.rediff.com/"); 
@arr = $m->forms; 
$count = 1; 
foreach (@arr) { 
    my @inputfields = $_->param; 
    print "form $count fields are:\n"; 
    $count++; 
    foreach (@inputfields) { 
     print "$_\n"; 
    } 
    print "\n"; 
} 

輸出：

form 1 fields are: 
srchword 
src 

form 2 fields are: 
login 
passwd 
remember 
seclogin 
FormName 

預期： 我想也顯示值，比如

login : abc@rediff.com 

Answer 1

使用$form->value方法記錄在HTML::Form：

use strict; 
use warnings; 

use WWW::Mechanize; 

my $m = WWW::Mechanize->new(); 
$m->get("http://www.rediff.com/"); 
my $count = 1; 
for my $form ($m->forms) { 
    print "form $count fields are:\n"; 
    $count++; 
    for ($form->param) { 
     printf "%s - %s\n", $_, $form->value($_); 
    } 
    print "\n"; 
} 

輸出：

form 1 fields are: 
srchword - 
src - web 

form 2 fields are: 
login - 
passwd - 
remember - 1 
seclogin - on 
FormName - existing