访问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;
    };
}

另见我的这个答案,它更详细地解释了类似的黑客攻击.