假设我有一个文件xx.txt,它包含数据
1 I am here 2 to work in 3 Perl for writing 4 a script for 5 myself
解决方法
您可以使用数组作为打印缓冲区.
my @array;
while (<DATA>) {
push @array,$_;
shift @array if @array > 4;
print @array if /script/;
}
__DATA__
1 I am here
2 to work in
3 Perl for writing
4 a script for
5 myself
各种用法：
如果您打算将它作为独立使用,您可以考虑使用grep：
grep -B3 script xx.txt
或者perl one-liner如果grep不是一个选项(例如你在Windows上)：
perl -nwe 'push @a,$_; shift @a if @a > 4; print @a if /script/' xx.txt
如果它在脚本中,您只需提供自己的文件句柄：
my @array;
open my $fh,'<',"xx.txt" or die $!
while (<$fh>) {
push @array,$_;
shift @array if @array > 4;
print @array if /script/;
}