perl實(shí)現(xiàn)grep -A 1 -B 1 filename的功能

nathanielwen

用perl實(shí)現(xiàn)grep -A 1 -B 1 filename
前提是，不能把整個(gè)文件讀到@line這樣的變量里面，如果文件好幾個(gè)G，這樣應(yīng)該占用很大內(nèi)存的吧。

jason680

回復(fù) 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

多謝答復(fù)。不過。我測試了下�？赡苓�有點(diǎn)小問題。 應(yīng)該是因?yàn)槠ヅ涞?2'之后，用$n讀入下一行，所以，如果下一行恰好是2的話，就會(huì)被讀入到$n中而跳過。回復(fù) 2# jason680


   

nathanielwen

sample的內(nèi)容忘記貼了。。

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

復(fù)制代碼

回復(fù) 2# jason680


   

jason680

回復(fù) 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

回復(fù) 5# jason680

好厲害,學(xué)習(xí)了.
   

nathanielwen

果然牛！回復(fù) 5# jason680