假设我有一个文件 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 单行如果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/;
}
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)