如何计算重复键并将重复键的所有值加在一起以生成具有非重复键的新哈希？

Question

您好，我是 Perl 新手，处于初学者阶段，请帮助 我有一个散列，

%hash = { a => 2 , b=>6, a=>4, f=>2, b=>1, a=>1}

我想要输出为

• a 3 次
• b 2 次
• f 1 次

新的散列应该是

%newhash = { a => 7, b=>7,f =>2}

我该怎么做？

为了计算哈希中键的频率，我正在做

foreach $element(sort keys %hash) {
    my $count = grep /$element/, sort keys %hash;
    print "$element comes in $count times \n";
}

但是通过这样做，我得到的输出为：

a comes 1 times 
b comes 1 times 
a comes 1 times
f comes 1 times 
b comes 1 times
a comes 1 times

这不是我想要的。

如何获得重复键的正确频率？如何添加这些重复键的值并存储在新的哈希中？

Answer 1

根据定义，哈希值中不能多次包含相同的哈希键。您可能希望将初始数据存储在不同的数据结构中，例如二维数组：

use strict;
use warnings;
use Data::Dumper;

my @data = ( [ a => 2 ], 
             [ b => 6 ],
             [ a => 4 ],
             [ f => 2 ], 
             [ b => 1 ],
             [ a => 1 ],
           );
my %results;

for my $value (@data) {
  $results{$value->[0]} += $value->[1];
}

print Dumper %results;

# $VAR1 = 'a';
# $VAR2 = 7;
# $VAR3 = 'b';
# $VAR4 = 7;
# $VAR5 = 'f';
# $VAR6 = 2;

也就是说，其他错误的事情：

%hash = { a => 2 , b=>6, a=>4, f=>2, b=>1, a=>1}

您不能这样做，它正在分配一个 hashref ({} ) 到哈希值。使用 %hash = ( ... ) 或 $hashref = { ... }。

Answer 2

Sonam：

我重新编辑了您的帖子，以帮助调整其格式以供阅读。研究 Markdown 编辑帮助指南，这将使您的帖子更清晰、更容易理解。这里有一些提示：

• 将代码缩进四个空格。这告诉 Markdown 不要管它，不要重新格式化它。
• 当你列一个清单时，在前面加一个空格。 Markdown 理解它是一个项目符号列表并按此格式设置它。

在您的原始帖子上按“编辑”，您可以看到我所做的更改。

---

现在开始你的帖子。我不确定我是否理解您的数据。如果您的数据位于哈希中，则键将是唯一的。哈希中不能有重复的键，那么您的数据来自哪里？

例如，如果您从每行有两个数字的文件中读取它，您可以这样做：

use autodie;
use strict;
use warnings;

open (my $data_fh, "<", "$fileName");
my %hash;
while (my $line = <$data_fh>) {
   chomp $line;
   my ($key, $value) = split /\s+/, $line;
   $hash{$key}++;
}
foreach my $key (sort keys %hash) {
    print "$key appears $hash{$key} times\n";
}

前三行是 Perl 编译指示。它们改变了 Perl 的操作方式：

• use autodie：这告诉程序在某些情况下终止，例如当您尝试打开一个不存在的文件时。这样，我就不必检查 open 语句是否有效。
• use strict：这确保您必须在使用变量之前声明它们，这有助于消除 90% 的 Perl 错误。 大部分时间使用 my 声明变量。最后在声明它们的块中使用 my 声明的变量。这就是为什么 my %hash 必须在 while 块之前声明。否则，一旦循环完成，变量将变得未定义。
• 使用警告：这让 Perl 在某些条件下生成警告。例如，您尝试打印出没有用户设置值的变量。

第一个循环只是逐行遍历我的数据并计算您的密钥出现的次数。第二个循环打印出结果。