perl 编程技巧问题？

robin23

小弟在编cgi的时候，用了多个check来多选，然后通过perl来处理。即通过

选择多项按钮，来读取相应的输入。程序片断如下：
    if(not($check1 eq "")
     {
       my$ken1=$form{'keme1'};
      }
    if(not($check2 eq "")
      {
        my$ken2=$form{'keme2'};     
      }
    if(not($check3 eq "")
      {
        my$ken3=$form{'keme3'};
       }
.....................
目的是，每一个if都可以执行一遍，从而正确的得到输入项；但是，我的这

个一旦前面的check被选择，后面的就不被执行了，功能和单选的一样，也就

是说，一旦前面的if被执行，后面的就跳过了。我查了资料好像perl没有swi

ch(){case1;case2;...}语句。望各位高手帮帮忙，还有什么别的方法。先谢

谢了！！！

tiw

SWITCH: {
    if (/^abc/) { $abc = 1; last SWITCH; }
    if (/^def/) { $def = 1; last SWITCH; }
    if (/^xyz/) { $xyz = 1; last SWITCH; }
    $nothing = 1;
}
you can write it with something like this

m0925j

你没用CGI.pm？我记得用一组checkbox的话可以直接得到一个数组吧

robin23

我试了，用switch还是无法达到多项选择的功能！只执行最靠前的符合条件的语句，如果前面的成立，后面的就都跳过了！程序如下：
switch
  {
   if(not($check1 eq "")
     {
       my$ke1=$form{'keme1'};
       last switch;
      }

    if(not($check2  eq "")
      {
        my$ke2=$form{'keme2'};
        last switch;
      }

    if(not($check3 eq "")
      {
        my$ke3=$form{'keme3'};
        last switch;
        }
      }