Как я могу подавить предупреждающие сообщения, полученные методом 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"; 

мне нужно подавить Unknown option: сообщения, сгенерированные getopts и получить только мое TRALALALALA на STDERR.

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