分割パターンを使用してファイルと、このパターンを含む文字列（perlの）

Question

で得られる各ファイルに名前を付け、私が使用してファイルを持っているが、この

PATTERN1abcdef_abcd_ab 
a 
b 
PATTERN2azerty_az_aze 
c 
d 

と、私はこれらのような小さなファイルに分割する必要があるようなものです

PATTERN1abcdef_abcd_ab 
a 
b 

とPATTERN2azerty_az_aze.txtは、ウィッヒは含まれています：.TXT、ウィッヒは含まれてい

PATTERN2azerty_az_aze 
c 
d 

それはパターンを含む文字列を出力ファイルの名前を変更しません除い

perl -n -e '/^PATTERN/ and open FH, ">output_".$n++; print FH;' inputfile.txt 

：

は、私が正常に動作して、このperlのコマンドを見つけました。

EDIT：申し訳ありませんが、私は間違いを犯しました.PATTERNを含む文字列を出力テキストファイルから削除してはならず、ファイル名にする必要があります。

Answer 1

はこれを試してみてください：

perl -n -e '/^PATTERN.*/ and open FH, "$&.txt"; print FH;' inputfile.txt 

Answer 2

あなたは（あなたのパターンに一致すなわち） PATTERN1という名前のファイルに入れて取得するための値を取得しようとしている場合。 それからあなたの正規表現で名前を取得し、あなたのファイル名の一部としてそれを使用したいと思うでしょう。

perl -n -e '/^(PATTERN\d)/ and open(FH, "> $1.txt")and next; print FH;' inputfile.txt 

注意：私は（）内のパターンをキャプチャしており、$ 1は私たちのマッチの値を保持します。私はまた、ファイルの後に次のファイルを追加しました。そうでなければ、ファイル内にもマッチが含まれます。