在请求arrayref时,perl中绑定哈希的奇怪行为

发布时间：2020-12-16 06:19:29 所属栏目：大数据来源：网络整理

导读：我试图按照跟踪变量用法的顺序绑定哈希(或hashref). 一切都适用于简单的情况,但当我尝试在一些真正的代码上使用我的模块时,我遇到了这个错误： hash- or arrayref expected (not a simple scalar,use allow_nonref to allow this) 我使用以下代码复制了错误

我试图按照跟踪变量用法的顺序绑定哈希(或hashref).

一切都适用于简单的情况,但当我尝试在一些真正的代码上使用我的模块时,我遇到了这个错误：

hash- or arrayref expected (not a simple scalar,use allow_nonref to allow this)

我使用以下代码复制了错误：

use Tie::Hash::Usages;
use JSON;

my @arr = (
    {
        key1 => "ac",key2 => 12,key3 => 12
    },);
my %tied_hash;


tie %tied_hash,'Tie::Hash::Usages';

$tied_hash{key1} = @arr;

my @val = $tied_hash{key1};
print encode_json(@val)."nn"; #this works

print encode_json($tied_hash{key1}); #this doesn't

相同的代码使用普通哈希.

在第二种情况下我也需要这个工作,代码库是巨大的,我不想改变它或怀疑某些地方某些东西在某些特定情况下不起作用.

Usages.pm(简体)

package Tie::Hash::Usages;
use strict;
use warnings;

use Tie::Hash;

use vars qw(@ISA);

@ISA = qw(Tie::StdHash);

sub TIEHASH {

    my ($class,$tracker,$filename) = @_;
    my %hash;

    bless %hash,$class;

}

sub STORE {
    my ($self,$key,$val) = @_;
    $self->{$key} = $val;
}

sub DELETE {
    my ($self,$key) = @_;
    delete $self->{$key};

}

sub FETCH {
    my ($self,$key) = @_;
    return $self->{$key};
}

sub DESTROY {
    my $self = shift;
}
1;

perl版本：v5.18.2

解决方法

最小的演示：

use JSON::XS  qw( encode_json );
use Tie::Hash qw( );

our @ISA = 'Tie::StdHash';

{
   tie my %tied,__PACKAGE__;
   $tied{data} = { a => 1 };
   encode_json($tied{data});  # Exception: hash- or arrayref expected ...
}

JSON是JSON :: PP(默认)或JSON :: XS(如果找到)的前端.这是JSON :: XS的问题.

很多XS代码都没有处理魔法变量(这是$tied {EXPR}返回的内容),虽然JSON :: XS自1.2版以来已经处理了神奇的值,但它并没有直接传递给encode_json的值.

这是JSON :: XS中的现有错误,可以解决如下问题：

encode_json(my $non_magical = $tied{data})

错误reported.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!