switch报错

xjxh829

perl的版本是 This is perl, v5.10.1  。
我使用switch和case搭配，来使用，每个case里面有if和else多重判断。其中一个case中添加了乘法*，就会编译报错（不加配置文件）。就算用### 来屏蔽，也是报错。只能删除该行。检查记录，没有乱码。报错内容是“Bad switch statement (problem in the code block?)”  。我截取case里的内容如下

if ( $bb_tnum ) {
          $dd_tnum1 = sprintf ("%02d",($j_tnum-$bb_tnum)/$bb_tnum*100 );
      }
      if ( @tnum ){
         my $tnum = scalar @tnum ;
         foreach (0..$#tnum) {
            $total_tnum += $tnum[$_] ;
         }
         print "33\n";
         $dd_tnum5=10*10;   ---------------- 就是这一行，有乘法就报错。第二行也有乘法都没报错。其它运算符也不会报错。
      }else{
          $dd_tnum5=0 ;
      }
    print "44\n";


我单独讲这段内容，放到一个脚本中运行，是正确的。我怀疑是不是其它字段没有正确配置。于是，我删除 “ $dd_tnum5=10*10; ” 这一行，输入配置文件，脚本就运行正常。如何定位问题。

zhlong8

不要用 Switch 模块，只有 perl 解释器才能正确的分析编译 Perl，而这个模块把源码当字符串处理，面对复杂的语句不可能保证100%正确。

在新的版本连 given when 都会警告是实验特性，所以就不推荐了，还是老老实实用 if elsif 吧。

xjxh829

回复 2# zhlong8

原来还有这样的说法。谢谢。
用if elsif  麻烦。
   

zhlong8

回复 3# xjxh829


    嫌麻烦用 given when 也是可以的，只要不介意升级到高版本时的 given/when is experimental 警告（这个警告可以关闭）。