来自对象的HASH元素在单个字符串中返回

Question

我有一个带有函数的Module.pm模块getHash(),正如您所猜测的那样,返回数据的散列)).我们都知道如何使用标准模型获取哈希的元素形式:

use Module;
my $m = new Module;
my %hash = $m->getHash();
print $hash{needed_element's_key};

一切都好.但是,如果你需要在单个字符串中写两个最后的字符串而没有初始化一个新的HASH(并且只使用一个元素占用整个哈希的内存)呢？

有可能以某种方式这样做吗？比方说,$m->getHash()->{needed_element's_key}; 当然,给定的例子不起作用.有什么建议？谢谢!

Answer 1

无法返回哈希值.Subs只能返回标量列表.您将该标量列表分配给现有哈希my %hash并获取该哈希的元素.

您可以通过使用匿名哈希来伪装您正在创建新哈希的事实:

my $val = { $m->getKeyValPairs() }->{$key};

或者,自定义过滤器可能更有效:

sub find_val {
   my $target_key = shift;
   while (@_) {
      my $key = shift;
      my $val = shift;
      return $val if $key eq $target_key;
   }

   return undef;
}

my $val = find_val $key, $m->getKeyValPairs();

但最好的选择是让方法返回对哈希的引用.然后,您不必执行创建哈希的浪费活动.你只需使用以下内容:

$m->getHashRef()->{$key}

Answer 2

如果一个sub return %hash,它实际上返回一个键和值列表(交替).您可以将其放回哈希并获取特定密钥:

print +{ $m->getHash() }->{needed_element_key};

(+需要使用前导来防止perl认为{是一个块返回一个文件句柄进行打印.)

但是你最好只返回一个哈希引用.