如何将perl哈希字符串引用转换为perl哈希引用

Question

 HASH(0x991f0dc)

所以上面的哈希引用在标量变量中存储为字符串,如果我们在Perl程序中用"%"取消引用它会引发错误,

Can't use string ("HASH(0x991f0dc) ") as a HASH ref while "strict refs" in use at tcpclient1.pl line 49, <GEN0> line 1

以上是从Perl程序抛出的,我请求解决方案,将哈希字符串引用转换回Perl哈希引用.

Answer 1

你无法将其转换回来.

这HASH(0x991f0dc)不是哈希引用.它是变量的字符串表示形式,包含对该地址的散列的引用.你在deref它时描述的错误信息表明你有类似的东西:

my $foo = 'HASH(0x991f0dc)';
print %$foo;

现在这不起作用,因为实际的数据结构不存在.

看起来你通过GEN0文件句柄读取了一个套接字.向你发送数据结构的人做错了什么.

他们需要序列化数据,然后您需要将其反序列化.这样做的好方法是JSON.但你也可以使用Storable或Sereal.