爲什麼兩個分支似乎都執行？

Question

我完全困惑。這裏是我的代碼：

use strict; 
use warnings; 
use Test::More; 

subtest 'huh?' => sub { 
    my $i = 0; 
    eval { 
     $i++; 
    } || do { 
     $i++; 
    }; 
    is($i, 1, "only execute one branch (i: $i)"); 
}; 

&done_testing(); 

這是我的測試輸出（用時5.12的activeperl運行的Mac OS X）：

not ok 1 - only execute one branch (i: 2) 
    # Failed test 'only execute one branch (i: 2)' 
    # at test.pl line 14. 
    #   got: '2' 
    #  expected: '1' 
    1..1 
    # Looks like you failed 1 test of 1. 
not ok 1 - huh? 
# Failed test 'huh?' 
# at test.pl line 15. 
1..1 
# Looks like you failed 1 test of 1. 

這到底是怎麼回事？我預計只有第一個分支才能運行，因爲沒有任何die s。但它看起來像兩個分支都被執行。

Answer 1

$i++返回之前的值$i增量。所以，因爲它是0，那麼它是錯誤的。並且eval返回最後一個評估結果，也就是那個假值。然後它繼續嘗試下一個塊（因爲它應該）。

如果您只想要第一個分支，您需要將增量表達式「增量，，然後返回」，如此eval { ++$i }。

現在看到的最好的方式，如果失敗的eval是不返回1，但做到以下幾點：

1. 本地化$@（或$English::EVAL_ERROR）
2. EVAL

3. 測試$@

   local $@; 
   eval { $some_sub->(); }; 
   croak("Failed in evaluate: $@") if $@; 
   

Answer 2

eval { $i ++ }返回的結果與$i ++返回的結果相同，即$i在增加之前的值。由於您將$i設置爲0，因此它將返回0，該值爲false，這意味着||的右操作數也會被計算。

我想你混淆了結果的eval，它被保存在$@內eval返回（這簡直是對包含的表達式的結果）與die結果。