「沒有警告;」在安全隔間

Question

我使用的是Perl的Safe模塊中的reval，我想阻止它在生成警告時無法解析被評估的字符串（實際上，我想阻止它生成任何警告） 。

例如，下面的代碼：在

use strict; use warnings; 
use Safe;  
use feature qw/say/; 
my $cft = Safe->new; 

my $x = $cft->reval(') 1'); 
my $y = $cft->reval('2' ); 
say "x: $x"; 
say "y: $y"; 

結果：

Number found where operator expected at (eval 5) line 1, near ") 1" 
    (Missing operator before 1?) 
Use of uninitialized value $x in concatenation (.) or string at ./test line 12. 
x: 
y: 2 

我試圖做到的，是有$ X =民主基金和$ Y = 2，且無警告。 我試圖提出「沒有警告;」一個新的範圍內，但它從重估中產生的警告沒有效果（雖然，正如@DavidO指出的那樣，沉默的「初始化值」警告）：

use strict; use warnings; 
use Safe;  
use feature qw/say/; 
my $cft = Safe->new; 
{ 
    no warnings; 
    my $x = $cft->reval(') 1'); 
    my $y = $cft->reval('2' ); 
    say "x: $x"; 
    say "y: $y"; 
} 

我想，不知何故'沒有警告'必須放在安全隔間內，所以我也試圖在「無警告」之前加上警告。琴絃被eval'ed：

use strict; use warnings; 
use Safe; 
use feature qw/say/; 
my $cft = Safe->new; 
{ 
    my $x = $cft->reval('no warnings;' . ') 1'); 
    my $y = $cft->reval('no warnings;' . '2' ); 
    say "x: $x"; 
    say "y: $y"; 
} 

這樣重估不發出任何警告，但兩個變量都是民主基金：

Use of uninitialized value $x in concatenation (.) or string at ./test line 10. 
x: 
Use of uninitialized value $y in concatenation (.) or string at ./test line 11. 
y: 

我不知道什麼嘗試，我希望問題描述足夠清楚。

Answer 1

如果您檢查$@，您會看到$cft->reval('no warnings;' . ') 1');失敗。 'require' trapped by operation mask at (eval 5) line 1.。換句話說，Safe正在做它的工作，並防止代碼嘗試加載庫。

$cft->reval('BEGIN { warnings->unimport; }) 1');會工作，假設警告已經加載到隔間外。但是，這不會消除編譯時錯誤。不像eval，reval似乎讓他們通過。使用amon的STDERR靜音技術。

Answer 2

no warnings禁止所有警告use warnings編譯指示生成。您可能也想要刪除任何strict。但嚴重的解析錯誤會以任何方式彈出。

如果你想無論多麼病態執行任何代碼，沒有任何輸出到STDERR，您應在本地修改信號處理程序：

{ 
    # I know what I'm doing! 
    local $SIG{__WARN__} = sub {}; # locally ignore any warnings 
    eval $code; # catches all "die" 
} 

，或者我們可以重新STDERR到/dev/null：

{ 
    # I know what I'm doing! 
    open my $oldSTDERR, '>&' \*STDERR or die; 
    close STDERR or die; 
    open STDERR, '>', '/dev/null' or die; 

    eval $code; 

    close STDERR or die; 
    open STDERR, '>&', $oldSTDERR or die; 
    close $oldSTDERR; 
}