我有一个类,返回一个哈希值的方法.通常,我会得到如下结果:
%resp = $myclass->sub($foo);
然后像这样访问返回的哈希的成员:
$resp{key}{subkey};
在2d哈希的情况下.
我认为必须有一种方法将它组合成一条优雅的线条,如下所示:
$myclass->sub($foo)->{key}{subkey}
这显然没有被正确解除引用,因为Perl在尝试运行代码时会返回此信息:
Can't use string ("1/8") as a HASH ref
在尝试随机解引用序列时,从查看“References quick reference” on Perlmonks,我想出了以下内容,Perl没有抱怨,但也没有返回我正在寻找的内容:
$%{$myclass->sub($foo)}->{key}{subkey}
有人能告诉我神奇的解除引用转义序列是做什么的吗?
解决方法
你要做的事既不优雅也不可取.你以某种方式设法在标量上下文中调用例程(这是“1/8”对应的).
返回哈希引用.
现在,来看看:
#!/usr/bin/perl package My::Mine; use strict; use warnings; sub test { my %h = ( a => { z => 1},b => { y => 2},); return %h; } package main; use strict; use warnings; my $class = 'My::Mine'; print { $class->test }->{a}{z},"\n";
那样不行.相反,你必须这样做:
print +{ $class->test }->{a}{z},"\n";
现在,这很优雅(不!)见perldoc -f print.
长话短说,返回哈希的引用.
请注意,您正在构建的新匿名哈希不是免费的.将哈希作为平面列表从子例程返回的成本也不是.