"कोई चेतावनी नहीं;" एक सुरक्षित डिब्बे में

Question

मैं पर्ल के 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 = undef और $ y = 2, और कोई चेतावनी। मैंने "कोई चेतावनी नहीं डालने की कोशिश की;" एक नया दायरे के अंदर है, लेकिन यह Reval के भीतर से उत्पादित चेतावनी पर कोई प्रभाव नहीं है (हालांकि, के रूप में @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"; 
} 

इस तरह Reval कोई चेतावनी जारी नहीं करता है, लेकिन दोनों चर 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: 

मैं और क्या करने की कोशिश करना नहीं जानते हैं, और मुझे आशा है कि कि समस्या का विवरण पर्याप्त स्पष्ट था।

Answer 1

यदि आप $@ चेक करते हैं तो आप देखेंगे कि $cft->reval('no warnings;' . ') 1'); विफल हुआ। 'require' trapped by operation mask at (eval 5) line 1.। दूसरे शब्दों में, सुरक्षित अपना काम कर रहा है और उस कोड को लाइब्रेरी लोड करने की कोशिश करने से रोक रहा है।

$cft->reval('BEGIN { warnings->unimport; }) 1'); काम करेगा, मान लीजिए कि डिब्बे के बाहर चेतावनियां पहले ही लोड हो चुकी हैं। हालांकि, यह समय त्रुटियों को संकलित शांत नहीं करेगा। eval के विपरीत, reval उन्हें इनके माध्यम से जाने देता है। STDERR को शांत करने की आमोन की तकनीक का उपयोग करें।

Answer 2

no warningsuse warnings प्रगामा उत्पन्न सभी चेतावनियों को दबा देता है। आप शायद strict ures को भी हटाना चाहते हैं। लेकिन गंभीर पार्सिंग त्रुटियां किसी भी तरह से पॉप अप हो जाएंगी।

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