複数のファイルの行を新しいファイルにコピーし、ファイル名を保持する方法は？

Question

次のコードがあります。以下にどのように機能するかについて説明します。

まず、作業ディレクトリ（cd /User/MyData/）を入力してプログラムを実行します。

awk '
  FNR==1 { sample = FILENAME ; sub(/\.fasta/, "", sample }
  /^>/   { target = substr($0,2)".fasta" ; next }
         { print ">" sample > target ; print > target }
' Sample_*.fasta

プログラムawkはすべてのファイルを繰り返しますSample_*.fasta。各入力ファイル（）の先頭からFNR==1サフィックス「.fasta」を削除して、現在のファイル名からサンプル名を抽出します。行が始まる場合、>レコードのターゲットファイル名は>その文字の後にファイル名のサフィックス ".fasta"が追加されて使用されます。他の種類の行では、以前に抽出されたサンプル名がターゲットファイルに書き込まれ、現在のデータが2行目に書き込まれます。

注：「開いているファイル記述子が多すぎる」という問題が見つかった場合は、最良のオプションはGNUに切り替えることです（awk可能であれば）！

あなたのプラットフォームでGNUがawk利用できないか利用できない場合は、いくつかの追加の変更が必要です。重要なことは、各ファイルに書き込んだ後に閉じる機能を使用することですclose()。結果は閉じたファイルに追加する必要があります。。（これはより複雑でパフォーマンスが低下するため、GNUを入手してawk最初のバリアントを使用することを検討する価値があります。）

これらの変更により、次のプログラムが生成されます。

# because of the append operation you need to empty the file targets
# before calling subsequent awk code, e.g. by: rm -f AT???????.fasta
awk '
  FNR==1 { sample = FILENAME ; sub(/\.fasta/, "", sample }
  /^>/   { target = substr($0,2)".fasta" ; next }
         { printf ">%s\n%s\n", sample, %0 >> target ; close(target) }
' Sample_*.fasta

このawkプログラムを呼び出す前に、既存の出力ファイルが削除されたか、以前の呼び出しから消去されていることを確認する必要があります。それ以外の場合は、新しい出力が以前にその出力ファイルに存在していたデータに追加されます。

Answer 1