3

我们有一些多级评估，如果失败，传递的参数不会显示太多，我希望我可以访问在更高级别传递的 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 对象。我将在同一个运行实例中执行此操作，因此内存地址是有效的。

谢谢

4

1 回答 1

5

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

基本上，这看起来像：

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

另请参阅我的这个答案，它更详细地解释了类似的黑客攻击。

于 2013-10-07T12:00:39.287 回答