如何在Perl中屏蔽有意编写代码引发的警告？

一、屏蔽Smartmatch实验特性警告 #

你提到的方法是规范且推荐的：在使用smartmatch操作符的Perl文件开头，明确声明你有意使用该实验特性：

use experimental qw(smartmatch switch);

这会告知Perl你知晓该特性的实验状态，不会再输出对应警告，且不会影响其他类型的警告。

二、屏蔽子例程重定义警告 #

针对上游模块bug需要重定义子例程的场景，不要全局关闭所有警告，而是限定范围关闭redefine类警告：
在重定义子例程的代码块外围添加局部作用域，仅在该作用域内关闭重定义警告：

{
    no warnings 'redefine';
    sub Net::Amazon::S3::Client::Object::put_part {
        # 你的修复逻辑代码
    }
}

这样只会屏蔽当前重定义操作的警告，其他地方的子例程重定义警告（若存在）依然会正常触发。

三、保留部分警告，避免日志被占满 #

如果需要保留其他警告，同时过滤掉这两类无害警告，可采用以下两种方式：

1. 精准控制警告范围 #

始终坚持“最小范围关闭警告”原则：

• Smartmatch警告：仅在使用该特性的文件中添加use experimental声明，不要全局应用。
• 重定义警告：仅在重定义子例程的局部作用域内使用no warnings 'redefine'。

2. 全局捕获并过滤特定警告 #

通过$SIG{__WARN__}钩子捕获所有警告，根据内容过滤掉目标警告，保留其他警告：

$SIG{__WARN__} = sub {
    my $warn_msg = shift;
    # 过滤已知的两类无害警告
    return if $warn_msg =~ /Smartmatch is experimental/;
    return if $warn_msg =~ /Subroutine Net::Amazon::S3::Client::Object::put_part redefined/;
    # 其他警告正常输出到日志
    warn $warn_msg;
};

将这段代码放在程序入口处（比如主脚本或公共模块的开头），即可全局过滤指定警告，同时保留其他警告信息。

内容的提问来源于stack exchange，提问作者Timothy R. Butler