【再次求解】一個(gè)幾天前讓我出bug的函數(shù)

yiten

這里我就只寫一個(gè)原型
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();

這個(gè)輸出應(yīng)該是什么呢：
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)判斷，容易出錯(cuò)很正常，是你自己的邏輯錯(cuò)誤，程序結(jié)果并沒錯(cuò)。

在$i為1時(shí)，你將全局變量（因?yàn)槟闶孪炔�沒有聲明這個(gè)變量）$bar的值變成了4，$1為2時(shí)，my $bar生效，變?yōu)?，雖然名稱相同，但它只是在FOR內(nèi)的局部變量，并沒有覆蓋全局變量，所以$1為3，4，5時(shí)，print $bar 的輸出都是全局變量$bar的值。

yiten

但是我用了use strict，沒有聲明的全局變量是允許的嗎？
如果這樣允許的話，那說(shuō)明use strict還是有缺陷的

iamlimeng

use strict并非萬(wàn)能，my $bar = 2 if $i == 2這里可能讓它誤認(rèn)為聲明了吧，養(yǎng)成好習(xí)慣，出錯(cuò)的概率就會(huì)降低很多。

水平有限，說(shuō)不出所以然，請(qǐng)樓下的高手解釋。

yiten

我也是覺得my $bar = 2 if $i == 2對(duì)use strict使了障眼法。
這個(gè)bug我曾經(jīng)頭疼了很久，后來(lái)終于查出來(lái)了，呵呵。

zhlong8

很簡(jiǎn)單，這樣用根本就是錯(cuò)的，文檔說(shuō)的很清楚。ActivePerl 自帶的 perlcritic 可以檢查這種錯(cuò)誤，而 strict 查檢末聲明變量是在編譯期進(jìn)行的。

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

看說(shuō)明是說(shuō)perl也還沒定對(duì)于這個(gè)寫法該怎么處理。
所以其實(shí)應(yīng)該歸于perl的一個(gè)缺陷，他應(yīng)該明確該怎么處理，如果確定不那么處理，就告訴我那樣寫是錯(cuò)的。

flw

看說(shuō)明是說(shuō)perl也還沒定對(duì)于這個(gè)寫法該怎么處理。
所以其實(shí)應(yīng)該歸于perl的一個(gè)缺陷，他應(yīng)該明確該怎么處理 ...
yiten 發(fā)表于 2010-11-15 14:35

未定義行為這個(gè)術(shù)語(yǔ)很常見吧。

jason680

看說(shuō)明是說(shuō)perl也還沒定對(duì)于這個(gè)寫法該怎么處理。
所以其實(shí)應(yīng)該歸于perl的一個(gè)缺陷，他應(yīng)該明確該怎么處理 ...
yiten 發(fā)表于 2010-11-15 14:35

如果你要的是解釋...樓上的幾位都指出來(lái)了......
由其最后一句: "Here be dragons"


如果你要解決真正的問題.....

There's more than one way to do it

重述你(真正)的問題? (你要的功能或結(jié)果)

我們可以找更好,更不會(huì)出錯(cuò)的方法......