Perl获取匹配行的最后三行

#!/usr/bin/perl
open (file,"D:\\OUTCAR");
$a=0;
while ($lines=<file>){
if ($lines=~/TOTAL ELASTIC/){
$lines_number=$.;
$a=1
}
if ($a==1){
sub1()
}
}
close(file);
sub sub1{
if (grep {$.==$_}$lines_number..$lines_number+10){
print "$lines";
}else{
$a=2;
}
}

posted @ 2019-08-22 21:27  朵朵奇fa  阅读(277)  评论(0编辑  收藏  举报