当前位置：首页 → 问答吧 → 【再次求解】一个几天前让我出bug的函数

【再次求解】一个几天前让我出bug的函数

时间：2010-11-13

来源：互联网

这里我就只写一个原型
use warnings;
use strict;
use Data:

umper;
use Time::HiRes;

sub foo {
for my $i ( 1..5 ) {
      my $bar = 2 if $i == 2;

      if ( !defined($bar) ) {
         $bar = 4 if $i % 2;
      }

      print $bar || '', "\n";
}
}

foo();

这个输出应该是什么呢：
4
2
4
4
4
还是
4
2
4

4
为什么？

作者: yiten 发布时间: 2010-11-13

如果这样写
sub foo {
for my $i ( 1..5 ) {
      my $bar;
      $bar = 2 if $i == 2;

      if ( !defined($bar) ) {
         $bar = 4 if $i % 2;
      }

      print $bar || '', "\n";
}
}

foo();

输出肯定是比较明确的

作者: yiten 发布时间: 2010-11-13

一楼的程序，肯定有问题，在$bar没有定义的情况下，用!defined($bar)判断，容易出错很正常，是你自己的逻辑错误，程序结果并没错。

在$i为1时，你将全局变量（因为你事先并没有声明这个变量）$bar的值变成了4，$1为2时，my $bar生效，变为2，虽然名称相同，但它只是在FOR内的局部变量，并没有覆盖全局变量，所以$1为3，4，5时，print $bar 的输出都是全局变量$bar的值。

作者: iamlimeng 发布时间: 2010-11-13

但是我用了use strict，没有声明的全局变量是允许的吗？
如果这样允许的话，那说明use strict还是有缺陷的

作者: yiten 发布时间: 2010-11-13

use strict并非万能，my $bar = 2 if $i == 2这里可能让它误认为声明了吧，养成好习惯，出错的概率就会降低很多。

水平有限，说不出所以然，请楼下的高手解释。

作者: iamlimeng 发布时间: 2010-11-13

我也是觉得my $bar = 2 if $i == 2对use strict使了障眼法。
这个bug我曾经头疼了很久，后来终于查出来了，呵呵。

作者: yiten 发布时间: 2010-11-13