获取重复元素的所有相应键

Question

我有一个文件,包括以下内容:

A  1
A  2
B  3
B  4
B  5
B  6
C  7
A  8  

我想在第一列中获取所有唯一键,但获取该唯一键的所有相应值,即我需要获取:

A 1,2,8
B 3,4,5,6
C 7

最好的方法是什么？
(我听说Perl有很好的支持来解决这个问题,但我是Perl的新手.)

Answer 1

试试这个:

open my $fh, '<', "data_filename";
my %map;

while(my $line = <$fh>) {
  my ($key, $val) = split(/\s+/, $line);
  push @{$map{$key}}, $val;
}