Perl一行程序警告

只是为了好玩……匹配后只打印一行

perl -lne '$. == $next && print; $next = ($.+1) if /match/' data.txt

更有趣的是……匹配后打印接下来的十行

perl -lne 'push @nexts, (($.+1)..($.+10)) if /match/; $. ~~ @nexts && print' data.txt

虽然有点作弊，因为实际上有两个命令

看来你用错工具了。Grep并没有那么复杂，我认为你想要提升awk作为这项工作的工具:

Awk '/blah/ {getline;打印$0}的日志文件

如果你有任何问题让我知道，我认为它很值得学习一点awk，它是一个伟大的工具:)

附注:这个例子并没有获得“无用使用猫奖”;) http://porkmail.org/era/unix/award.html

如果下一行从来没有包含'blah'，你可以过滤他们:

grep -A1 blah logfile | grep -v blah

使用cat logfile |…不需要。

you can use grep, then take lines in jumps: grep -A1 'blah' logfile | awk 'NR%3==2' you can also take n lines after match, for example: seq 100 | grep -A3 .2 | awk 'NR%5==4' 15 25 35 45 55 65 75 85 95 explanation - here we want to grep all lines that are *2 and take 3 lines after it, which is *5. seq 100 | grep -A3 .2 will give you: 12 13 14 15 -- 22 23 24 25 -- ... the number in the modulo (NR%5) is the added rows by grep (here it's 3 by the flag -A3), +2 extra lines because you have current matching line and also the -- line that the grep is adding.

到目前为止，对于这个问题已经给出了许多很好的答案，但我仍然错过了一个awk没有使用getline的答案。因为，在一般情况下，没有必要使用getline，我将使用:

awk ' f && NR==f+1; /blah/ {f=NR}' file  #all matches after "blah"

or

awk '/blah/ {f=NR} f && NR==f+1' file   #matches after "blah" not being also "blah"

逻辑始终包括存储找到“blah”的行，然后打印后面一行的行。

Test

示例文件:

$ cat a
0
blah1
1
2
3
blah2
4
5
6
blah3
blah4
7

取“blah”后面的所有行。如果出现在第一个之后，则打印另一个“blah”。

$ awk 'f&&NR==f+1; /blah/ {f=NR}' a
1
4
blah4
7

获取“blah”之后的所有行，如果这些行本身不包含“blah”。

$ awk '/blah/ {f=NR} f && NR==f+1' a
1
4
7

你可以匹配多行，然后输出n行:

awk 'c&&!--c;/match1/{c=1};/match2/{c=2}' file

匹配多个项目，输出n行后:

#!/bin/sh
[ -z $3 ] && echo $0 file \[match n\]+... \# to output line n after match && exit
f=$1; shift; while [ \! -z $2 ]; do s="$s/$1/{c=$2};"; shift; shift; done
awk 'c&&!--c;'$s $f

所以你可以把上面的文件保存为match .sh和chmod +x match .sh，然后如果你有一个这样的文件:

line1
line2 
line3
line4
line5
line6
line7

并运行:

./matchn.sh file line1 1 line3 2 line6 1

你会得到:

line2
line5
line7

这将需要更多的调整来支持0偏移量。