只打印文件中連續(xù)三行都不為空的內(nèi)容，求思路

b4and5

例如，有一個(gè)文件內(nèi)容為：


random line content
random line content

random line content
random line content



random line content
random line content
random line content

random line content
random line content
random line content


random line content為隨機(jī)任意內(nèi)容，每行都不一樣；

只想打印連續(xù)三行都不為空行的內(nèi)容，
也就是
random line content
random line content
random line content
和
random line content
random line content
random line content

求思路，謝謝

清泉一邊

試試~

1. #!/usr/bin/perl -w
   
2. $/ = "\n\n";
   
3. while (<DATA>){
   
4. my @a = split /\n/,$_;
   
5. print $_ if $#a == 2;
   
6. }
   
7. 
   
8. 
   
9. __DATA__
   
10. random line content
    
11. random line content
    
12. 
    
13. random line content
    
14. random line content
    
15. 
    
16. 
    
17. 
    
18. random line content
    
19. random line content
    
20. random line content
    
21. 
    
22. random line content
    
23. random line content
    
24. random line content

復(fù)制代碼

回復(fù) 1# b4and5


   

ntwarren

while (<DATA>){
    chomp;
    if(/^$/){
        @keep=();
    }
    else{
        push @keep,$_;
        if(@keep+0 ==3){
            print (join "\n",@keep);
            print "\n\n";
            @keep = ();
        }
    }
}

jason680

回復(fù) 1# b4and5

$ cat 3line.pl
use strict;
use warnings;

my $sCnt = 0;
my $sStr = "";
while (<DATA>){
  chomp;
  if(/^\s*$/){
    $sCnt = 0;
    $sStr = "";
    next;
  }
  $sStr .= "$_\n";
  if(++$sCnt >=3){
    print "$sStr";
    $sStr = "";
  }      
}

__DATA__
random line content 1
random line content 2

random line content 4
random line content 5



random line content 9
random line content 10
random line content 11

random line content 13
random line content 14
random line content 15
random line content 16

$ perl 3line.pl
random line content 9
random line content 10
random line content 11
random line content 13
random line content 14
random line content 15
random line content 16

   

45177659

Administrator@SWYWXQ1DHSU3MJ6 ~/perl
$ perl -e 'BEGIN{$/=undef;} $_ = <>; @_ = /((??>.+)\n){3})/g; print @_'  testfile
random line content1
random line content2
random line content3
random line contentaaa1
random line contentaaa2
random line contentaaa3
random line contentbbb4
random line contentbbb5
random line contentbbb6

Administrator@SWYWXQ1DHSU3MJ6 ~/perl
$ cat testfile
random line content1
random line content2
random line content3

random line content
random line content



random line contentaaa1
random line contentaaa2
random line contentaaa3

random line contentbbb4
random line contentbbb5
random line contentbbb6

45177659

1. perl -e 'BEGIN{$/=undef;} $_ = <>; @_ = /((?:(?>.+)\n){3})/g; print @_'  testfile

復(fù)制代碼

我x,居然變成笑臉了！