自己犯了一个低级错误，折腾了半天

cronas

my $x;
if ($x='a') {
  print 'is a';
} else {
  print 'is other';
}

当然实际程序没这么简单，可是意思是这样，用了等号做判定，结果怎么都是一样

大家有类似的教训吗？

jason680

回复 1# cronas

Always use strict and warnings in your code

use strict;
use warnings;

and you will get the warning message
   

cronas

我是在一个框架下编程，那个框架本身就一堆「warning」，
所以一般都是不用「use warnings;」

jason680

回复 3# cronas

write the check code by yourself

ex:

use strict;
use warnings;

while(<DATA>){
  if(m/^\s*if\s*\(.*([^=])=([^=]).*\)/){
    print;
  }
}
__DATA__
my $x;
if ($x = 'a') {
  print 'is a';
} else {
  print 'is other';
}
   

zhlong8

warnings strict 都是词法作用域的，只管此行向下，当前 BLOCK 里的代码，就和 my 变量一样

pitonas

有类似的教训{:2_168:}
回复 1# cronas


   

cronas

回复 4# jason680

多谢 jason680 老大，学习了。


   

cronas

回复 5# zhlong8

好的，我记住了！
以后多用 warnings strict ，做词法分析。