如何禁止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生成的消息,并且只在stderr上获取我的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");
}