如何让Perl的do()执行脚本时输出编译警告？

问题场景 #

用Perl的do()函数执行脚本时，编译阶段的警告（例如Useless use of numeric eq (==) in void context）会被抑制——直接在命令行运行目标脚本时能正常看到这类警告，但通过do()调用就完全看不到。尝试通过local $SIG{__WARN__}自定义警告处理也无效，只有目标脚本中主动调用warn输出的运行时警告能正常显示。

环境：Perl v5.22.1、Windows 10，调用脚本和被调用脚本均启用use strict;和use warnings;。

最小复现代码 #

被调用脚本 test.pl

use strict;
use warnings;

sub test {
    return 1;
}

main: {
    (test() == 1);  # 这里会触发编译警告
}

调用脚本

use strict;
use warnings;

main: {
    do('test.pl');
}

可行解决方案 #

方案1：用require替代do()（推荐） #

require在加载脚本时会触发所有编译阶段的警告，唯一需要注意的是require会缓存已加载的文件，若需要重复执行脚本，需先删除%INC中的对应记录：

use strict;
use warnings;

main: {
    # 清除缓存，确保每次都重新加载脚本
    delete $INC{'test.pl'};
    # 用eval包裹避免编译错误导致主脚本终止
    eval { require 'test.pl' };
    print "编译错误：$@" if $@;
}

执行后就能看到目标脚本的编译警告，因为require的加载逻辑会严格触发编译阶段的所有警告输出。

方案2：预执行语法检查 #

如果必须使用do()，可以先通过系统调用让Perl对目标脚本做语法检查并输出警告：

use strict;
use warnings;

main: {
    my $script_path = 'test.pl';
    # -c 仅做语法检查，-w 强制开启警告
    my $check_result = `perl -cw "$script_path"`;
    print $check_result if $check_result;
    
    # 执行脚本
    do($script_path);
}

这种方法先单独捕获编译警告，再执行脚本，能满足需求但会多一次进程调用。

原理说明 #

do()的内部编译逻辑会抑制目标脚本的编译警告，而$SIG{__WARN__}仅能捕获运行时的警告——编译阶段发生在do()内部处理的早期，此时自定义的警告处理函数尚未生效，因此无法捕获这类警告。require则遵循标准的模块/脚本加载逻辑，会完整触发编译阶段的所有警告。

内容的提问来源于stack exchange，提问作者Warpstar22