如何在Perl CGI HTML模板的下拉列表中獲取數組值？

Question

請建議如何使用HTML模板獲取下拉列表中的數組值。

use HTML::Template; 
open (FL, "<file.txt"); 

#(file.txt values are below) 
#count1 
#count2 
#count3 
#count4 
#count5 ## samples 

my @TOTAL = <FL>; 

foreach $count(@TOTAL) { 
    chomp $count; 
    $template->param(COUNT => [{name => $count}]); # here I am getting only one value in the drop down menu (count1 value only) 
} 

我在等待下面的值，所以下拉列表中會列出所有的值。

$template->param(COUNT => [{name => $count1}, {name => $count2}, {name => $count3}, {name => $count4}]); 

print $template->output, "\n"; 

Answer 1

你可以map it，那麼就不需要循環。

$template->param( 
    COUNT => [ 
    map { 
     { name => $_ } 
    } @TOTAL 
    ] 
); 

外{}是用於塊該map需求，並且內{}是散列參考。

但是別忘了chomp your input。