"không cảnh báo;" trong một khoang an toàn

Question

Tôi đang sử dụng reval từ mô-đun Safe của Perl và tôi muốn ngăn chặn cảnh báo này nếu chuỗi không được phân tích cú pháp (thực ra, tôi muốn ngăn chặn nó tạo ra bất kỳ cảnh báo nào) .

Ví dụ, đoạn mã sau:

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

kết quả trong:

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 

Những gì tôi đang cố gắng để đạt được là phải có $ x = undef và $ y = 2, và không có cảnh báo. Tôi đã cố gắng đặt "không có cảnh báo"; bên trong một phạm vi mới, nhưng nó không ảnh hưởng đến những lời cảnh báo được sản xuất từ ​​bên trong Reval (mặc dù, như đã chỉ ra bởi @DavidO, nó im lặng của các giá trị chưa được khởi tạo 'cảnh báo):

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

Tôi đoán rằng bằng cách nào đó 'không có cảnh báo' phải ở trong ngăn An toàn, vì vậy tôi cũng đã cố gắng thêm "không có cảnh báo"; để các dây được 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"; 
} 

cách Reval này không phát hành bất kỳ cảnh báo, nhưng cả hai biến là 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: 

Tôi không biết những gì khác để thử, và tôi hy vọng mô tả sự cố đủ rõ ràng.

Answer 1

Nếu bạn kiểm tra $@ bạn sẽ thấy rằng $cft->reval('no warnings;' . ') 1'); không thành công. 'require' trapped by operation mask at (eval 5) line 1.. Nói cách khác, Safe đang thực hiện công việc của mình và ngăn chặn mã đó cố tải một thư viện.

$cft->reval('BEGIN { warnings->unimport; }) 1'); sẽ hoạt động, giả sử cảnh báo đã được tải bên ngoài khoang. Tuy nhiên, điều đó sẽ không gây ra lỗi thời gian biên dịch. Không giống như eval, reval dường như cho phép họ vượt qua. Sử dụng kỹ thuật làm im lặng STDERR của amon.

Answer 2

no warnings ngăn chặn tất cả các cảnh báo mà use warnings tạo ra pragma. Bạn có thể muốn loại bỏ bất kỳ strict ures là tốt. Nhưng lỗi phân tích cú pháp nghiêm trọng sẽ bật lên theo bất kỳ cách nào.

Nếu bạn muốn thực hiện bất kỳ mã nào, dù bệnh lý, mà không cần bất kỳ đầu ra stderr, bạn ở địa phương nên sửa đổi xử lý tín hiệu:

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

hoặc chúng ta có thể mở lại 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; 
}