Test::More中ok函数输出#变为\#的原因及代码修复方法

原因 #

你遇到的#被转义为\#的问题，是因为旧版本的Test::More（对应Perl 5.18.2的版本属于早期分支）严格遵循TAP（测试任何协议）规范：在测试结果行ok N - description格式中，#是注释的起始标记。为了避免测试名称中的#被TAP解析器误判为注释开头，模块会自动将#转义为\#。

修复方法 #

方法1：升级Test::More模块 #

较新版本的Test::More（如0.98及以后）对TAP格式的处理更灵活，仅在#可能被误解析为注释的场景下才转义，大多数情况不会自动转义测试名称中的#。可通过CPAN升级模块：

cpan Test::More

方法2：重写Test::Builder的转义函数（无需升级模块） #

如果无法升级模块，可在代码中重写Test::Builder的_escape方法，移除对#的转义逻辑：

use Test::More 'no_plan';

# 重写转义函数，禁用#的转义
no warnings 'redefine';
*Test::Builder::_escape = sub {
    my ($self, $str) = @_;
    $str =~ s|\\|\\\\|g;  # 保留对反斜杠的转义
    $str =~ s|\n|\\n|g;    # 保留对换行符的转义
    # 注释掉对#的转义代码
    # $str =~ s|\#|\\#|g;
    return $str;
};

# 测试代码示例
my $i = 1;
my $blabla = 1;
ok($blabla, 'test #' . $i);

运行后输出会变为预期的ok 1 - test #1。

注意事项 #

如果测试结果需要被严格遵循TAP规范的解析器处理，保留\#转义其实是合规做法——多数TAP解析器会自动将\#还原为#显示。仅当你需要直接输出未转义的#时，才需要使用上述修复方案。

内容的提问来源于stack exchange，提问作者U. Windl