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

Question

我们有一些多级evals，如果它失败了，传递的参数不会透露太多信息，我希望我可以访问在更高级别传递的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 sub。

基本上，这看起来像这样：

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，它更详细地解释了一个类似的黑客攻击。