Perl - 计算文本文件中数组元素的出现次数？

Question

所以我有一个单词数组（foo，bar，baz，hello），我想计算另一个数组（foo，foo，bar，bar，bar，baz，baz）中出现的次数，然后创建一个哈希将单词作为键，将出现次数作为值，如果在另一个数组中找不到该单词，则输出应为 0，我的代码：

my @array1 = ("foo","bar", "baz", "hey");
my @array2 = ("foo", "foo", "bar", "bar", "bar", "baz", "baz");
my %hash;

foreach my $count (@array2){
$hash{$count}++;
}
for my $key (sort keys %hash) {
print "$key = $hash{$key}\n";
}

这个输出将是

foo = 2
bar = 3
baz = 2

如何使用@array1 计算其元素在@array2 中的出现次数，以便提供输出：

foo = 2
bar = 3
baz = 2
hey = 0

以便我可以将新元素添加到 @array1 以供将来进行比较操作？因为我当前的解决方案无法扩展，因为@array2 的内容是从文本文件中提取的。

Answer 1

遍历 array1 而不是哈希键：

for my $key (@array1) {
  my $count = $hash{$key} // 0;
  print "$key = $count\n";
}

Answer 2

你需要做的就是改变你声明%hash的方式

my %hash = map {$_ => 0} @array1;

这将创建一个散列，其中包含来自 @array1 的键全部初始化为零。

Answer 3

你也可以不手动循环计数，使用 grep 为你计数。

use strict;
use warnings;

my @array1 = ("foo","bar", "baz", "hey");
my @array2 = ("foo", "foo", "bar", "bar", "bar", "baz", "baz");
my %hash;

for my $i (@array1){
$hash{$i}=grep{/^${i}$/} @array2
}

print "Key: $_ and Value: $hash{$_}\n" for (keys%hash);

生产

Key: bar and Value: 3
Key: baz and Value: 2
Key: hey and Value: 0
Key: foo and Value: 2