我正在尝试获取哈希引用切片的总和,但失败了
#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use feature 'say';
use autodie ':all';
use List::Util 'sum';
my %h = (
'a' => 1,
'b' => 2,
'c' => 3
);
my @letters = ('a','b');
say sum(@h{@letters}); # 1+2 = 3, which is correct
my $h = \%h; # create a reference
#say sum(@{ $h->{ @letters } }); # says "uninitialized value"
#say sum(@{ $h }->{@letters}); # not an array reference
say sum(@h->{@letters}); # @h requires explicit package name
我可以获得哈希切片的总和,但无法获取哈希引用切片的总和。
我尝试过的三种方法都未能得到总和,我已在注释中指出了错误。
如何获得哈希引用切片的总和?
取消引用$h
与@
印记,但后面带有花括号:
say sum(@{ $h }{ @letters });
如果里面的东西@{...}
是一个简单标量,花括号是可选的。所以,你可以将其缩短为
say sum(@$h{ @letters });
第三种可能的语法是 Postfix Reference Slicing(需要 5.20+):
say sum($h->@{ @letters });
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)