求教：如何将序号相同的两行合并为一行

juzi1114

如是这样的
11        Alpha-
11        24/25 protein)
12        Amiloride-sensitive amine oxidase
12        (EC 1.4.3.6)
12        (Histaminase)
想要用perl来写 将前面序号相同的合并变成如下形式：
11           Alpha-24/25 protein)
12           Amiloride-sensitive amine oxidase (EC 1.4.3.6) (Histaminase)

用去掉换行也不行
谢谢啦 想了好久都不会！！
我很努力在学习perl了滴...

ps: 这样的数据有很多个，如下
1     ab
1     cd
2     ...
2      ....
3      .....
.....
1500 ....
准备把这些存成一个数组，但是后面的就不知道怎么写了， 谢谢各位了！！！

[ 本帖最后由 juzi1114 于 2008-6-19 14:18 编辑 ]

juzi1114

为啥没滴人来帮下我呢....5.....

不死草

read line
然后模式匹配/^11/ or /^12/

juzi1114

忘了说了 这只是其中一小部分 要是有上千个序列该如何写呀？
非常谢谢你哦！！

cobrawgl

#!user/bin/perl

use strict;
use warnings;

my %data;
while (<DATA>) {
        chomp;
        my @t = /(\d+)\s+(.*)/;
        $data{$t[0]} .= $t[1];
}

print $_, "\t", $data{$_}, "\n" for keys %data;
__DATA__
11        Alpha-
11        24/25 protein)
12        Amiloride-sensitive amine oxidase
12        (EC 1.4.3.6)
12        (Histaminase

[ 本帖最后由 cobrawgl 于 2008-6-19 14:53 编辑 ]

不死草

呵呵，cobrawgl 大虾的方法总是很全面的，不论什么情况都考虑了的。。。佩服，学习中！~

juzi1114

呵呵 谢谢了 先去试下了

juzi1114

恩 非常谢谢 可以了 果然是高手啊 呵呵....
偶也要努力学习！！！ 向你们学习 呵呵..

yifangyou

最简单的就是用索引数组存储序号相同的行