"nessun avviso;" in un compartimento sicuro

Question

Sto usando reval dal modulo Safe di Perl e voglio impedirgli di generare avvisi se la stringa sottoposta a valutazione non può essere analizzata (in realtà, voglio impedirgli di generare alcun avviso) .

Ad esempio, il seguente codice:

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

risultati in:

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 

Quello che sto cercando di realizzare è quello di avere $ x = undef e $ y = 2, e non avvertenze. Ho provato a mettere un "nessun avviso"; all'interno di un nuovo campo di applicazione, ma non ha alcun effetto sulle avvertenze prodotte dall'interno del Reval (anche se, come sottolineato da @DavidO, tacita l'avviso 'valore non inizializzato'):

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

Credo che in qualche modo la 'nessun avvertimento' deve essere all'interno del compartimento sicuro, quindi ho anche cercato di anteporre "nessun avvertimento"; alle stringhe di essere 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"; 
} 

In questo modo Reval non emette eventuali avvisi, ma entrambe le variabili sono undef:

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: 

non so che altro per provare, e spero che la descrizione del problema era abbastanza chiara.

Answer 1

Se si seleziona $@, si vedrà che $cft->reval('no warnings;' . ') 1'); non è riuscito. 'require' trapped by operation mask at (eval 5) line 1.. In altre parole, Safe sta facendo il suo lavoro e impedisce a quel codice di provare a caricare una libreria.

$cft->reval('BEGIN { warnings->unimport; }) 1'); funzionerebbe, presumendo che gli avvisi sono già stati caricati al di fuori del vano. Tuttavia, ciò non comporterà errori di compilazione del tempo. A differenza di eval, reval sembra lasciarli passare. Usa la tecnica di amon per calmare STDERR.

Answer 2

no warnings sopprime tutti gli avvisi generati dal pragma use warnings. Probabilmente vorrai rimuovere anche eventuali ure strict. Ma gravi errori di analisi appariranno in qualsiasi modo.

Se si desidera eseguire alcun codice, non importa quanto sia patologico, senza alcun output STDERR, si dovrebbe modificare localmente il gestore di segnale:

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

o potremmo riaprire 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; 
}