linux - 根据第一个场连接2行

嗨，我档案里有这样的东西

12345   aaaaaaaaaabbbbbbbbbb
23456   bbcbcbbgyhuhuhhhhhhh
12345   7ijkunmmnniiiiiiii
23456   bbcbcbbgyhuhsdrfrrhhhv

我想把一行合并成一行
字段i，e。，

12345   aaaaaaaaaabbbbbbbbbb 12345   7ijkunmmnniiiiiiii
23456 bbcbcbbgyhuhuhhhhhhv 23456   bbcbcbbgyhuhsdrfrrhh

有人能告诉我怎么做吗？

最佳答案

while (<DATA>) {
    ($x, $y) = split;
    push @{$lines{$x}}, $y;
}

while (($x, $y) = each %lines) {
    print "$x\t$_\t" for @{$y};
    print "\n";
}

__DATA__
12345   aaaaaaaaaabbbbbbbbbb
23456   bbcbcbbgyhuhuhhhhhhh
12345   7ijkunmmnniiiiiiii
23456   bbcbcbbgyhuhsdrfrrhhhv

关于linux - 根据第一个场连接2行，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/11707313/