论坛 › Perl › perl数据处理

xyzjr 发表于 2015-12-26 15:41:42

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
　　一行搞定，这就是差距。


　　
　　==

查看完整版本: perl数据处理