perl - 如何将文件加载到 Perl 哈希中？

Question

给定以下文件:

department=value1
location=valueA
location=valueB
department=value2

我使用以下命令将文件加载到 Perl 哈希中:

use File::Slurp;
use Data::Dumper;
my %hash = map {
   s/#.*//;
   s/^\s+//;
   s/\s+$//;
   m/(.*?)\s*=\s*(.*)/;
} read_file($file);
print Dumper(\%hash);

但是，结果如下:

$VAR1 = {
          'location' => 'valueB',
          'department' => 'value2'
        };

如何将上述文件加载到哈希中，例如

$VAR1 = {
          'location' => 'valueA,valueB',
          'department' => 'value1,value2'
        };

谢谢。

Answer 1

给你:

my %hash;
while (<FILE>)
{
   chomp;
   my ($key, $val) = split /=/;
   $hash{$key} .= exists $hash{$key} ? ",$val" : $val;
}

这会遍历以“=”符号分割的每一行，并添加一个条目或附加到哈希表中的现有条目。