提取指定行之间的内容再正则过滤掉内容

perl -ne 'print if 8..12
先提取指定范围的内容

#!/usr/bin/perl
open($fh,'<',"1.txt") or die $!;
open($fhout,">2.txt");

while ($line=<$fh>)
{
        @tmp = split(/ /,$line);
        @tmp1 = split(/-/,$tmp[0]);


        if ( $tmp1[0] == 2017 )
        {
                $mLineFlag =0;
                //multiple regular condition,use |
                if ($line =~ (/H323Proxy|SIGNAL|MC/) )
                {
                $mLineFlag =1;
                print $fhout $line;
                }
        }
        else
        {
                if ($mLineFlag)
                {
                print $fhout $line;
                }
        }
}
close $fh;
close $fhout;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!