perl实现grep -A 1 -B 1 filename的功能

nathanielwen

用perl实现grep -A 1 -B 1 filename
前提是，不能把整个文件读到@line这样的变量里面，如果文件好几个G，这样应该占用很大内存的吧。

jason680

回复 1# nathanielwen

How about this way
$p to keep the last line
$n to get the next line

$ seq 9 | perl -ne '{if(m/5/){$n=<>;print "$p$_$n";exit}$p="$_"}'
4
5
6

   

nathanielwen

多谢答复。不过。我测试了下。可能还有点小问题。 应该是因为匹配到'2'之后，用$n读入下一行，所以，如果下一行恰好是2的话，就会被读入到$n中而跳过。回复 2# jason680


   

nathanielwen

sample的内容忘记贴了。。

1. pi@raspberrypi /usr/pi/script/perl $ cat sample.txt
   
2. line 1
   
3. line 2
   
4. line 2
   
5. line 3
   
6. line 4

复制代码

回复 2# jason680


   

jason680

回复 3# nathanielwen

$ perl -ne '{if(m/1/){print "$p$_";$p="";$c=1;next}if($c>0){$c--;print;next}$p=$_}' sample.txt
line 1
line 2

$ perl -ne '{if(m/2/){print "$p$_";$p="";$c=1;next}if($c>0){$c--;print;next}$p=$_}' sample.txt
line 1
line 2
line 2
line 3

$ perl -ne '{if(m/3/){print "$p$_";$p="";$c=1;next}if($c>0){$c--;print;next}$p=$_}' sample.txt
line 2
line 3
line 4

$ perl -ne '{if(m/4/){print "$p$_";$p="";$c=1;next}if($c>0){$c--;print;next}$p=$_}' sample.txt
line 3
line 4

wang1352083

回复 5# jason680

好厉害,学习了.
   

nathanielwen

果然牛！回复 5# jason680