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

yiten

这里我就只写一个原型
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

如果这样写
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();

输出肯定是比较明确的

iamlimeng

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

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

yiten

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

iamlimeng

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

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

yiten

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

zhlong8

很简单，这样用根本就是错的，文档说的很清楚。ActivePerl 自带的 perlcritic 可以检查这种错误，而 strict 查检末声明变量是在编译期进行的。

perlsyn

NOTE: The behaviour of a my statement modified with a statement modifier conditional or loop construct (e.g. my $x if ... ) is undefined. The value of the my variable may be undef, any previously assigned value, or possibly anything else. Don't rely on it. Future versions of perl might do something different from the version of perl you try it out on. Here be dragons.

yiten

看说明是说perl也还没定对于这个写法该怎么处理。
所以其实应该归于perl的一个缺陷，他应该明确该怎么处理，如果确定不那么处理，就告诉我那样写是错的。

flw

看说明是说perl也还没定对于这个写法该怎么处理。
所以其实应该归于perl的一个缺陷，他应该明确该怎么处理 ...
yiten 发表于 2010-11-15 14:35

未定义行为这个术语很常见吧。

jason680

看说明是说perl也还没定对于这个写法该怎么处理。
所以其实应该归于perl的一个缺陷，他应该明确该怎么处理 ...
yiten 发表于 2010-11-15 14:35

如果你要的是解释...楼上的几位都指出来了......
由其最后一句: "Here be dragons"


如果你要解决真正的问题.....

There's more than one way to do it

重述你(真正)的问题? (你要的功能或结果)

我们可以找更好,更不会出错的方法......