perl解析报文，每3行输出到1行，怎么实现 例如 a1 a2 a3 b1 b2 b3 c1 c2

perl解析报文，每3行输出到1行，怎么实现
例如
a1
a2
a3
b1
b2
b3
c1
c2
c3
结果
a1a2a3
b1b2b3
c1c2c3

用sed 
cat  test_baidu
a1
a2
a3
b1
b2
b3
c1
c2
c3
sed  -e 'N;N;s/\n//g' test_baidu 
用perl （perl 水平很烂 现学的）
open('WCD',' my $num = 1;
my $str = '';
while()
{
        chomp($_);
        $str .= $_;
        if ($num % 3 == 0) {
                print $str."\n";
                $str = '';
                $num=0;
        }
        $num++;
}

这样就可以： open(fd,'1.txt'); while($s1=){     $s2=;     $s3=;     chomp($s1);     chomp($s2);     print "$s1$s2$s3"; } close(fd);

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息