perl：将哈希对添加到更大的哈希中

Question

我生成了一个哈希表，然后尝试将多个文件中的每个文件添加到更大的哈希表（如果唯一），但我在语法上遇到了问题，并且不断意外调用值或创建哈希值。我想做的就是把：

(The actual $hash key) => $hash{$key};

变成

 $compound_hash{$key} = $hash{$key};

目前我有：

    if ($file_no == 0){
            while (my ($key, $value) = each %hash){
                    $compound_hash{$key} = $value;
            }       

    }else{
            while (my ($key, $value) = each %compound_hash){

                    if (exists $hash{$key}){
                            print "$key: exists\n";
                            $compound_hash{$key} .= ",$hash{$key}";
                    }else{
                          print "$key added\n";  
                          XXXXXXX
                    }

最终结果是将散列值连接到每行的末尾，制作一个 .csv ie

     abc,0,32,45
     def,21,43,23
     ghi,1,49,54

Answer 1

很难准确地说出，但我认为您正在寻找的是这样的：

for my $key (keys %hash) {  # for all new keys
     if (exists $compound_hash{$key}) {  # if we have seen this key
          $compound_hash{$key} .= ",$hash{$key}"  # append it to the csv
     }
     else {
          $compound_hash{$key} = $hash{$key}  # otherwise create a new entry
     }
}

在我自己的代码中，我可能会设置 %compound_hash 最初填充数组引用，然后将其连接到数据填充后字符串。

for my $key (keys %hash) {
     push @{ $compound_hash{$key} }, $hash{$key}
}

然后稍后

for my $value (values %compound_hash) {
    $value = join ',' => @$value
}

这将比重复将数据附加到复合哈希中包含的字符串更有效。