perl数据处理

来自CU的一道题

有一组数据

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

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

我的代码，好复杂！

use strict;
use warnings;
sub test {
open SOURCE, '<', "d:/code/abc.txt" or die $!;
open DEST, '>', "d:/code/def.txt" or die $!;
my $items = qq{};
while (<SOURCE>) {
if (/ID/){
if ($items) {
$items = join(' ', split(/\n/, $items));
print DEST $items, "\n";
$items = qq{};
            }
print DEST $_; # Include the last "\n";
        }
else {
$items .= $_
        }
    }
if ($items) {
$items = join(' ', split(/\n/, $items));
print DEST $items, "\n";
    }
close SOURCE;
close DEST;
}
&test() ;
1;

仙子的答案

perl -lpe '$\= /^ID|4$/ ? "\n" : " " ' data.txt

一行搞定，这就是差距。

==