sxw

Perl版本的：(看起来更啰嗦了)

while(<DATA>) {
my($a,$b)=split;
push @{$hash{$a}},$b;
}
for (keys %hash) {
print "$_ @{$hash{$_}}\n";
}
__DATA__
c 次
womf 我们
c 寸
c 错
zh 综合s
d 的
zh 综合
d 第
zi 造成
复制代码

sxw

或则单行命令：

perl -lane "push @{$hash{$F[0]}},$F[1];END{print \"$_ @{$hash{$_}}\" for (keys %hash)}" a.txt >b.txt
复制代码