"sin advertencias"; en un compartimento seguro

Question

Estoy usando reval del módulo Safe de Perl y quiero evitar que genere advertencias si la cadena que se evalúa no se puede analizar (en realidad, quiero evitar que genere advertencias) .

Por ejemplo, el siguiente código:

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

resultados en:

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 

Lo que estoy tratando de lograr es tener $ x = undef y $ y = 2, y sin advertencias Intenté poner "sin advertencias"; dentro de un ámbito nuevo, pero no tiene ningún efecto sobre las advertencias producidos desde dentro de la reval (aunque, como ha señalado @DavidO, se silencia la advertencia de valor sin inicializar '):

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

supongo que de alguna manera la 'no hay advertencias' debe estar dentro del compartimento seguro, así que también intenté anteponer "sin advertencias"; a las cadenas que se 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"; 
} 

Este reval manera no emite ninguna advertencia, pero ambas variables son no def:

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: 

no sé qué más para intentar, y espero que la descripción del problema era lo suficientemente clara.

Answer 1

Si marca $@, verá que $cft->reval('no warnings;' . ') 1'); ha fallado. 'require' trapped by operation mask at (eval 5) line 1.. En otras palabras, Safe está haciendo su trabajo e impide que ese código intente cargar una biblioteca.

$cft->reval('BEGIN { warnings->unimport; }) 1'); funcionaría, suponiendo que las advertencias ya están cargadas fuera del compartimento. Sin embargo, eso no silenciará los errores de tiempo de compilación. A diferencia de eval, reval parece dejarlos pasar. Usa la técnica de amon para aquietar STDERR.

Answer 2

no warnings suprime todas las advertencias que genera el use warnings pragma. Es probable que desee eliminar cualquier strict ures también. Pero los errores de análisis graves aparecerán de cualquier forma.

Si desea ejecutar ningún código, independientemente de lo patológico, sin ninguna salida a STDERR, debe modificar localmente el controlador de señal:

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

o que podría reabrir STDERR a /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; 
}