Perl：在这种情况下我可以跳过中间哈希变量吗？

Question

目前，我使用的是这样的东西：

my %tmpHash = routineReturningHash();
my $value = $tmpHash{'someKey'};

我唯一需要的是$value，我自己不需要%tmpHash。所以我很想知道是否有办法避免声明%tmpHash。

我试过

my $value = ${routineReturningHash()}{'someKey'};

但它不起作用并输出一个奇怪的错误：“Can't use string ("1/256") as a HASH ref while "strict refs" in use”。

有任何想法可以做到吗？

Answer 1

从返回的列表中创建一个hashref，然后可以取消引用

my $value = { routineReturningHash() }->{somekey};

在你尝试的内容中，${ ... }强加了标量上下文。 From perlref（我的重点）

  

<强> 2   在您将标识符（或标识符链）作为变量或子例程名称的一部分放置的任何地方，您可以使用BLOCK 返回正确类型的引用替换标识符。

在标量上下文中，哈希被计算为具有分数involving buckets的字符串;不是hashref。

更新我认为将哈希作为平面列表返回有设计原因。如果不是这种情况，那么明确的解决方案就是从sub返回hashref。

这也保存了数据副本：当你返回一个哈希时，需要复制标量（键和值），以便为调用者提供一个列表;当你返回一个引用只返回一个标量时。

至于性能优势......如果你能看到差异，你要么有大量的哈希值，无论如何应该通过引用处理，或者需要重构的函数调用太多。

要通过引用返回，您可以

• 表单并使用子资源中的哈希值然后return \%hash;

• 直接形成hashref return { key => 'value', ... };

• 如果您要使用大哈希，请传递其引用并使用该

  sub work_by_ref {    
      my ($hr) = @_;
      $hr->{key} = 'value';
      return 1;
  }
  
  my %hash;
  work_by_ref(\%hash);
  say "$_ => $hash{$_}" for sort keys %hash;
  

  小心这种C风格的方法;在Perl中通常不会直接更改调用者的数据。如果您只需要在sub中填充哈希值，那么在那里构建它并return \%hash;