Question

假设我有一个文件xx.txt，它包含数据

1 I am here

2 to work in 

3 Perl for writing

4 a script for 

5 myself

假设我想搜索字符串脚本并想要显示三个它上面的线，我该怎么办？

Answer 1

您可以使用数组作为打印缓冲区。

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

如果grep不是一个选项（例如，您在Windows上），则可以使用perl one-liner：

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/;
}

如何读取perl中匹配字符串上方的n行？

1 个答案: