perl 获取匹配行后面的多行

概述#!/usr/bin/perl use warnings; use strict; my$flag=0; my$a; while(<DATA>) {     if(/^>/)     {         $flag = 1;         $a = 0;     }     if($flag )     {         print $_;         $a++;     }     if #!/usr/bin/perl
use warnings;
use strict;

my$flag=0;
my$a;
while(<DATA>)

{
    if(/^>/)
    {
        $flag = 1;
        $a = 0;
    }
    if($flag )
    {
        print $_;
        $a++;
    }
    if($a == 3)
    {
        $flag = 0;
    }
} ########### #!/usr/bin/perl -w
use strict;
open(logoUT,">out.log") or dIE "can't create ";
open(LOGfile,"ISauditLog_01.log") or dIE "can not open"; #my $line_count = 0;
#while(<LOGfile>){
#        if(m/dsuser3/){
#               $line_count = 0;
#                print logoUT ;
#               $line_count++;
#       }elsif($line_count < 2){
#              print logoUT;
#              $line_count++;
#     } #}
my $flag=0; while(<LOGfile>)
{
        if(/dsuser/)
        {
                for($flag=0; $flag <= 1; $flag++)
                {
                        print logoUT $_ ;
                        $_ = <LOGfile>;
                }
        }
} print logoUT "end"; close(LOGfile); close(logoUT); 总结

以上是内存溢出为你收集整理的perl 获取匹配行后面的多行全部内容，希望文章能够帮你解决perl 获取匹配行后面的多行所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。