访问 Carp::longmess() 输出中的引用参数

Question

我们有一些多级评估，如果失败，传递的参数不会显示太多，我希望我可以访问 Carp::longmess() 传递的参数 在更高的级别，因为转储真的是我所拥有的。

[DEBUG:2564] 2013/10/07 12:54:06 /opt/s3/server/S3Comparator.pm:183 - compare() - stacktrace: at (eval 1312) line 2.
S3AIHelper::__ANON__('S3TransISO8583=HASH(0x1696eb10)') called at /opt/s3/server/S3AIHelper.pm line 777
S3AIHelper::match_fields('S3TransISO8583=HASH(0x1696eb10)', 'HASH(0x168dc750)', '') called at /opt/s3/server/S3AIHelper.pm line 177
S3AIHelper::fieldhits('S3TransGroup=HASH(0x16953d10)', 'HASH(0x168dc750)', '') called at (eval 1081) line 90

解析后是这样的：

my $value = 'S3TransISO8583=HASH(0x1696eb10)';

如何让它成为一个内容完整的 S3TransISO8583 对象。 我将在同一个运行实例中执行此操作，因此内存地址是有效的。

谢谢

Answer 1

在Carp 中，所有参数都被强制字符串化。但这是 Perl，我们可以通过猴子修补 Carp::format_arg 子程序来解决这个问题。

基本上，这看起来像：

BEGIN {
    use Data::Dump 'dump';  # nicer output than Data::Dumper

    my $orig = \&Carp::format_arg;

    *Carp::format_arg = sub {
        my ($arg) = @_
        @_ = (dump $arg);
        goto &$orig;
    };
}

另请参阅我的this answer，它更详细地解释了类似的黑客攻击。