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;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。