どのようにして一致する行と次の3行をPerlで印刷できますか？

Question

パターンを検索し、その行だけでなく次の3行をファイル（FILE）に書き込む必要があります。これは正しい方法ですか？ありがとう。

print FILE if /^abc/; 
$n=3 if /^abc/; 
print FILE if ($n-- > 0); 

Answer 1

私は..オペレータ好き：

perl -ne 'print if (/abc/ and $n=3) .. not $n--' 

をしかし、あなたは、ABCパターンは3行を次のように繰り返された場合にどうするか説明していません。再起動カウンタが必要な場合は、二重印刷の小さなバグを修正しても正しい方法です。

perl -ne'$n=4 if/abc/;print if$n-->0' 

Answer 2

あなたが行を印刷する必要があるかどうかを知るためにフラグ変数を使用して、それを簡素化することができます：

while(<$input>) { 
    $n=4 if /^abc/; 
    print FILE if ($n-- > 0); 
    } 

簡素化のほかに、それはまた、問題を修正：あなたのバージョンでは、ABCの文字列が印刷されます二度。

Answer 3

私はむしろコードをいくつか追加して、すべてをより明確にしたいと思います。このような何か作業をする必要があります：

my $count = 0; 
while (my $line = pop @file) { 
    if (/^abc/) { 
     $count = 4; 
    } 

    if ($count > 0) { 
     print FILE $line; 
     $count--; 
    } 
} 

編集コメントに応答する：正規表現を逃し

• は修正バグでした。
• 改行を印刷するかどうかは、ファイルをスラッピングするのと同じように、必ずしもオプションではありません。異なる人々は異なるスタイルを持ちます。これは、人々がPerlについて気に入っていることの1つです！

Answer 4

にファイルを読ままたは単一の行にあなたのコードを書いてみる必要はありません。

#!/usr/bin/perl 
use strict; 
use warnings; 

while (my $line = <DATA>) { 
    if ($line =~ /^abc/) { 
     print $line; 
     print scalar <DATA> for 1 .. 3; 
    } 
} 
__DATA__ 
x 
y 
z 
abc 
1 
2 
3 
4 
5 
6 

Answer 5

これは、コマンドラインのgrep（1）の機能です。プログラミングは必要ありません：

コンテキストのグループ間に ' - '行が表示されますが、それらは簡単に削除できます。 Perlですべてをやるのも簡単です。 :)

トリックは、次の3つの行のいずれかに、あなたが探しているパターンも含まれているときにしたいことです。 grep（1）はカウンタをリセットして印刷行を保持します。

Answer 6

もう1つの可能な解決策...

#!/usr/bin/perl 

use strict; 

my $count = 0; 
while (<DATA>) { 
    $count = 1 if /abc/; 
    if ($count >= 1 and $count <= 3) { 
     next if /abc/; 
     print; 
     $count++; 
    } 
} 

__DATA__ 
test 
alpha 
abc 
1 
234123 
new_Data 
test