perl如何实现把相同的输出到同一行

nanshanjin

如题，这里有一个文件，内容如下：
A1:Gr01:327-340
A1:Gr01:200-348
A1:Gr02:348-493
A1:Gr03:521-593
A1:Gr03:493-549
.......
.......
处理后的内容如下
A1:Gr01:327-340     A1:Gr01:200-348
A1:Gr02:348-493
A1:Gr03:521-593     A1:Gr03:493-549
把Gr01排在同一行，用\t分割；
求解答

MMMIX

回复 1# nanshanjin


    Try this:

my $pre_id = '';

while (<>) {
  chomp;

  my $id = (split /:/)[1];
  if ($id eq $pre_id) {
    print "\t$_";
  }
  else {
    print "\n$_";
    $pre_id = $id;
  }
}

nanshanjin

好的，谢谢回复 2# MMMIX


   

sunzhiguolu

回复 2# MMMIX
感情连哈希都不用就搞定了, 只能膜拜了...
大神这个问题用一行 code 能实现吗?
   

MMMIX

sunzhiguolu 发表于 2016-01-17 17:05
回复 2# MMMIX
大神这个问题用一行 code 能实现吗?

Yes, but why? What's the point?

sunzhiguolu

回复 5# MMMIX
就是喜欢您写的代码, 感觉非常的棒!