我正在尝试编写一个脚本,在该脚本中我需要处理HASH的密钥,而我正努力提取HASH的所有密钥。这是我的代码:
use strict;
use warnings;
my %HOA = (
"age" => [20 ,25],
"Name" => ["Raj" ,"Kiran"]
);
foreach my $key ( keys%HOA){
print "Key -> $HOA{$key}\n";
my @array = @{$HOA{$key}};
foreach my $val (@array){
print "val -> $val\n";
}
}
我需要将所有键存储在一个数组中。可以帮我一下吗?
这将为您提供来自一个数组中的哈希的所有数组元素。
use strict;
use warnings;
my %HOA = (
"age" => [20 ,25],
"Name" => ["Raj" ,"Kiran"]
);
my @array=map @{$HOA{$_}},keys %HOA;
foreach my $val (@array)
{
print "$val\n";
}
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句