作者:王尼玛的脑残粉 | 来源:互联网 | 2023-01-09 11:09
目前,我使用这样的东西:
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
".
有什么想法可以做到吗?
1> zdim..:
从返回的列表中创建一个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;
那.或者首先返回一个hashref.