[perl]一个表单有多个同名的辅选框，提交后怎么获取所有的辅选框值。

[perl]一个表单有多个同名的辅选框，提交后如何获取所有的辅选框值。高手指点！！！
例如所有的辅选框名称为win
第一个为1
第二个为4
第三个为6
提交后获取，如何获取为以半角逗号分割的数字，例如： "1,4,6 "
高手指点！！！

------解决方案--------------------
你把表单复选框这部分HTML代码贴下就可以了，精简点，不用贴这么多JaveScript。

CGI里面各种参数都可以通过param获取，如：

use CGI qw(:standard);
$who = param( "Name ");
$phone = param( "Number ");
@picks = param( "Choices ");

------解决方案--------------------
一般可以采用复选框的命名策略 win_x 命名, x是id

<input type= "checkbox " name= "win_1 " value= "1 ">
<input type= "checkbox " name= "win_2 " value= "1 ">
<input type= "checkbox " name= "win_3 " value= "1 ">
....
提交到server的时候,选中的复选框才会提交, 形式如
win_1=1&win_4=1&win_6=1
然后在server端判断win_x 开头的都有什么变量,就知道什么被选中了, 这样就可以不使用javascript.

#!/usr/bin/env perl
use strict;
use CGI qw(:standard);
my $q = new CGI;
my @checked_win;
foreach ($q-> param) {
push(@checked_win, $1) if /^win_(\d)$/;
}
print join( ', ', @checked_win). "\n ";