请问perl CGI如何处理复选框 checkbox

duziteng

请问perl CGI如何处理复选框 checkbox呢

1. 
   
2. <input type="checkbox" name="set1" value ="human-calgb-81s" >human-calgb-81s<br>
   
3. <input type="checkbox" name="set2" value ="human-calgb-house-inv16-nc-28s">human-calgb-house-inv16-nc-28s<br>
   
4. <input type="checkbox" name="set3" value ="human-calgb-house-mll-nc-7s">human-calgb-house-mll-nc-7s<br>
   
5. <input type="checkbox" name="set4" value ="human-calgb-inv16-26s">human-calgb-inv16-26s<br>
   
6. <input type="checkbox" name="set5" value ="human-calgb-t821-29s" >human-calgb-t821-29s<br>
   
7. <input type="checkbox" name="set6" value ="human-house-65s">human-house-65s<br>
   
8. <input type="checkbox" name="set7" value ="human-house-124s">human-house-124s<br>
   
9. <input type="checkbox" name="set8" value ="human-house-inv16-nc-16s">human-house-inv16-nc-16s<br>
   
10. <input type="checkbox" name="set9" value ="human-house-t821-nc-14s" >human-house-t821-nc-14s<br>
    
11. <input type="checkbox" name="set10" value ="mouse-cf-12s">mouse-cf-12s<br>
    
12. <input type="checkbox" name="set11" value ="mouse-cf-18s">mouse-cf-18s<br>
    
13. <input type="checkbox" name="set12" value ="mouse-es-eb-12s">mouse-es-eb-12s<br>
    
14. <input type="checkbox" name="set13" value ="mouse-es-eb-14s">mouse-es-eb-14s<br>
    
15. <input type="checkbox" name="set14" value ="mouse-eseb-cf-26s">mouse-eseb-cf-26s<br>
    

复制代码

类似这种情况，我把所有的name设为不同，然后在cgi里每一个my $name=cgi->param("set1")
但是这样做好像比较复杂

能不能把name 设为一样的，然后用my @name=cgi->param("set1")来处理呢？

climby

可以将name设置一样，然后用数组来接收的。你尝试一下就知道了

orangetouch

name='xxx[]'

iamlimeng

我写CGI没有用CGI模块，是用自己的解析模块来处理的（以前因为服务器不支持，只好自己解析），提交后，CGI程序会得到一个HASH %FORM，结构如下：

%FORM = (
set1 => "human-calgb-81s",
set2 => "human-calgb-house-inv16-nc-28s",
set3 => "human-calgb-house-mll-nc-7s",
...
);

然后再进行下一步处理，挺方便的。

engrol

就是用数组来处理的。同样的名称表示一个组。