你能告訴你的代碼在eval塊內嗎？

Question

有沒有辦法讓我的代碼（Perl庫中的方法）判斷它是否從eval {}塊中執行？

我想吃點什麼是一樣的東西：

sub mySub { 
    my $isInEval = isInEval(); 
    if ($isInEval) { 
     # Do a dying thing 
    } else { 
     # Do a non-dying thing. 
    } 
} 

對於對轉出的複雜性有關的問題，有沒有辦法讓我崩潰垂死和非垂死的代碼轉換成相同的代碼相同的塊如果我們在eval內或不在乎，那也不在乎。

Answer 1

好的，算出來了。 perldoc caller說：

# 0 1 2 3 4 
($package, $filename, $line, $subroutine, $hasargs, 
# 5 6 7 8 9 10 
$wantarray, $evaltext, $is_require, $hints, $bitmask, $hinthash) 
= caller($i); 

注意$子程序可能被（EVAL）如果幀不是一個子程序調用，而是一個eval。在這種情況下，將設置額外元素$ evaltext和$ is_require：$ is_require如果框架由require或use語句創建，則$ true，$ evaltext包含eval EXPR語句的文本。特別是，對於一個eval BLOCK語句，$子程序是（eval），但$ evaltext未定義。

我通過使用

的perl -e「使用數據::自卸車測試此;子X {FOREACH我的$ I（0..5）{我@ C =呼叫者（$ⅰ） ; print Data :: Dumper-> Dump（[\ @ @]）}}; sub y1 {x（）}; sub z {eval {y1（）}}; sub z2 {z（）;}; Z2（）」

事實上，撥打＃4有caller[3]輸出

$VAR1 = [ 
     'main', 
     '-e', 
     1, 
     '(eval)', 
     0, 
     undef, 
     undef, 
     undef, 
     0, 
     '' 
    ]; 

---

最終代碼：

sub isInEval{ 
    my $i=0; 
    while(1) { 
     my ($package, $filename, $line, $subroutine, $hasargs 
      ,$wantarray, $evaltext, $is_require, $hints, $bitmask, $hinthash) 
      = caller($i); 
     last unless defined $package; 
     $i++; 
     if ($subroutine eq "(eval)" || $evaltext) { 
      return 1; 
     } 
    }; 
    return 0; 
} 
sub x { 
    if (isInEval()) { 
     print "eval\n"; 
    } else { 
     print "NO eval\n"; 
    } 
} 
sub y1 { x() }; 
sub z1 { eval{y1()} }; 
sub w1 { z1(); }; 
print "w1: eval expected: "; 
w1(); 

sub y2 { x() }; 
sub z2 { y2() }; 
sub w2 { z2(); }; 
print "w2: eval UNexpected: "; 
w2();