此刻,我使用这样的东西:
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
”。
有什么想法可以做到吗?
从返回的列表中创建一个hashref,然后可以取消引用
my $value = { routineReturningHash() }->{somekey};
在您尝试的过程中,${ ... }
将标量上下文强加于其中。来自perlref(我的重点)
2. 在将标识符(或标识符链)作为变量或子例程名称的一部分放置的任何位置,都可以用返回正确类型引用的BLOCK替换标识符。
在标量上下文中,哈希被评估为一个字符串,其分数涉及桶; 不是hashref。
更新 我认为有设计上的理由将哈希作为平面列表返回。如果不是这种情况,那么明确的解决方案是仅从子级返回一个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中直接更改调用者的数据并不常见。如果您只需要在子代码中填充哈希,则在其中构建它,然后return \%hash;
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句