如何禁止Getopt :: Std :: getopts發出的警告消息？

Question

我有簡短的腳本test.pl

#!/usr/bin/perl 
use locale; 
use encoding 'utf-8'; 

use Getopt::Std; 

getopts("dei") or print STDERR "TRALALALALA\n"; 
print"@ARGV\n"; 

我需要抑制由getopts的產生Unknown option:信息，而只得到標準錯誤礦TRALALALALA。

Answer 1

{ 
    local $SIG{__WARN__} = sub { }; # Supress warnings 
    getopts("dei") 
     or print STDERR "TRALALALALA\n"; 
} 

或者你甚至可以嵌入「TRALALALALA」的警告處理：

{ 
    local $SIG{__WARN__} = sub { print STDERR "TRALALALALA\n" }; 
    getopts("dei"); 
} 

Answer 2

您也可以本地化*::STDERR，它在塊開到緩衝區，像這樣：

@ARGV = qw(-i -a -g); 
{ open(local *STDERR, '>', \(my $stderr)) 
     or warn('Could not open to string!') 
     ; 
    getopts('ig'); 
    say '$stderr=' . $stderr; 
} 

print STDERR 'STDERR => out';