这样数据怎么写代码

小鹭

有一组数据

ID 1
1
2
3
4
ID 2
1
2
3
4
ID 3
1
2
3
4

想变成

ID 1
1,2,3,4
ID 2
1,2,3,4
ID 3
1,2,3,4

请问该怎么写代码？谢谢了。

zhlong8

#!/usr/bin/perl -w

use 5.010;

my @s;

while (<DATA>) {
    chomp;
    if (/^ID/ .. /^ID/) {
        say join ',', @s;
        say;
        @s = ();
    }
    else {
        push @s, $_;
    }
}

say join ',', @s if @s;

__DATA__
ID 1
1
2
a
4
ID 2
1
2
3
4
ID 3
1
z
3
4

兰花仙子

小鹭 发表于 2011-12-24 04:57
有一组数据

ID 1

有规律话比较好整。

$ perl -nlpe '$\= /^ID|4$/ ? "\n" : " " ' data.txt  
ID 1
1 2 3 4
ID 2
1 2 3 4
ID 3
1 2 3 4

zhlong8

这个，很强

不过 np 一起用没什么意义吧？直接用 p 应该就可以了

xfoucs

zhlong8 发表于 2011-12-24 10:04
#!/usr/bin/perl -w

use 5.010;

直接 if (/^ID/) 就可以了，这里没用到范围吧

zhlong8

xfoucs 发表于 2011-12-24 10:53
直接 if (/^ID/) 就可以了，这里没用到范围吧

嗯，你说的对。 .. 还是不太会用现在，虽然努力下能看得懂，结果一用就错

羲之遗韵

仙子果然强大，一行就搞定了！