“没有警告;”在安全隔间

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; 
}