在Perl中创建映射哈希

您可以使用数组存储键的所有值,下面是演示程序。

use Data::Dumper;    
my @key = qw/PY CH QQ TD TD TD TD TD ES HI HI/;
my @val = qw/AB BC CD EF IG IH RD GD SE VG NH/;
my $hash = {};
for (0..$#key) {
    push @{$hash->{$key[$_]}}, $val[$_];
}
print Dumper $hash;

让我们运行它来查看输出:

$VAR1 = {
          'HI' => [
                    'VG',
                    'NH'
                  ],
          'QQ' => [
                    'CD'
                  ],
          'TD' => [
                    'EF',
                    'IG',
                    'IH',
                    'RD',
                    'GD'
                  ],
          'PY' => [
                    'AB'
                  ],
          'ES' => [
                    'SE'
                  ],
          'CH' => [
                    'BC'
                  ]
        };

另一个Perl,使用一个内衬

perl -ne ' ($x,$y)=/(\S+)\s+(\S+)/; if( exists($kv{$x})) { @t=@{$kv{$x}}; push(@t,$y);$kv{$x}=[@t] } else { $kv{$x}=[$y]} ; END { foreach(keys %kv) { if(ref($kv{$_}) eq "ARRAY" ) { print "$_ => @{$kv{$_}}\n" } else { print "$_ ->$kv{$_}\n"  } }}' dev.txt

产量

HI => VG NH
QQ => CD
TD => EF IG IH RD GD
PY => AB
ES => SE
CH => BC

逐行迭代文件。对于每个值,将其推入哈希图中的数组中。哈希映射由键值设置了键。

这条线 push @{$hashref->{$key}}, $value;

如果该键已经存在于映射中,则将该值推送到与该键关联的数组中。如果不是,则使用该值初始化数组,并使用该键初始化映射。

my $hashref;
while(<>){
chomp;
my ($key, $value) = split;
push @{$hashref->{$key}}, $value;
}