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

发布时间：2020-12-16 06:20:48 所属栏目：大数据来源：网络整理

导读：假设我有一个文件xx.txt,它包含数据 1 I am here2 to work in 3 Perl for writing4 a script for 5 myself 假设我想搜索字符串脚本并想要显示三个在它上面的线,我该怎么办？解决方法您可以使用数组作为打印缓冲区. my @array;while (DATA) { push @array,

假设我有一个文件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/;
}

（编辑：李大同）

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