perl 如何文本中的连续续行合并成单行

davi_star

perl 如何文本中的连续续行合并成单行

比如1.txt
内容是

a
1
2
3

b
456

c
5
6
7


变成
a123
b456
c567

Blue2K5

#!/usr/bin/perl -w

my $container="";
my $isRecord=0;

while(<>)
{
    chomp;
    if(/^$/)
    {
        if( $isRecord==1 )
        {
            print "$container\n";
            $container="";
            $isRecord=0;
        }
    }
    else
    {
        if($isRecord==0)
        {
            $isRecord=1;
            $container=$_;
        }
        else
        {
            $container.=$_;
        }
    }
}

if($isRecord==1)
{
    print "$container\n";
}

俺还是个新手，应该还有更快捷的方式^_^！

[ 本帖最后由 Blue2K5 于 2007-6-25 17:50 编辑 ]

doiob

#!/usr/bin/perl -w

open(FN,"1.txt")||die;
open(FM,">2.txt")||die;
@line=();
while($a=<FN>)
{
         if($a=~/^$/)
         {
                 print FM join('',@line),"\n";
                 @line=();
          }
          else
          {
                  push @line,chomp($a);
           }
}
if(@line)
{
          print FM join('',@line),"\n";
}
close(FN);
close(FM);

[ 本帖最后由 doiob 于 2007-6-25 21:00 编辑 ]

nkcsx

文件不太大的话.

1. 
   
2. open IN, "<1.txt";
   
3. open OUT, ">2.txt";
   
4. {
   
5.         local ($,, $/) = ("\n");
   
6.         my @res = map {s/\n//g; $_} split /\n{2,}/, <IN>;
   
7.         print OUT @res;
   
8. }
   
9. close IN;
   
10. close OUT;
    

复制代码

vio

perl -ne 's/(\S+)\n/\1/g;print' 1.txt

vio

perl -pe 's/(\S+)\n/\1/g' 1.txt

doiob

佩服！

dread0

发现各位给的答案越来越短, 最后就一个命令行了,强啊~~

likeytom

太多高手了
vio用的是正则表达式吗？