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

访问Carp :: longmess（）输出中的引用参数

1 个答案: