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};

在你尝试的内容中,${ ... }强加了标量上下文.来自perlref(我的重点)

2.在   您将标识符(或标识符链)作为变量或子例程名称的一部分放置的任何地方,您可以使用BLOCK替换标识符,返回正确类型的引用.

在标量上下文中,哈希被计算为包含桶的分数的字符串; 不是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;