タブ区切りファイルに値の列を追加する

特定の行数を持つファイルに値の列を追加するにはどうすればよいですか。次のような入力ファイルがあります。

入力ファイル：

SPATA17 1   217947738
LYPLAL1 1   219383905
FAM47E  4   77192838
SHROOM3 4   77660162
SHROOM3 4   77660731
SHROOM3 4   77662248

出力ファイル：

SPATA17 1   217947738 file1
LYPLAL1 1   219383905 file1
FAM47E  4   77192838  file1
SHROOM3 4   77660162  file1
SHROOM3 4   77660731  file1
SHROOM3 4   77662248  file1

この場合、ファイルの行数まで値の列を追加します。「file1」などの値は一貫したままです。

その理由は、これらのファイルが100個あるためです。各ファイルを開いて列を貼り付けたくありません。ディレクトリに移動して値の列を追加することで、これを自動化する方法もあります。値はファイル名に由来し、ファイルの各行の最後/最初の列に追加する必要があります。

次のようなワンライナーループを使用できます。

for f in file1 file2 file3; do sed -i "s/$/\t$f/" $f; done

リスト内の各ファイルについて、これはsed各行の最後にタブとファイル名を追加するために使用します。

説明：

• -iフラグを使用sedしてインプレース置換を実行し、ファイルを上書きします
• で置換を実行しs/PATTERN/REPLACEMENT/ます。この例では$、PATTERNは、行の終わり、およびREPLACEMENTは\t（= TAB）であり$f、ループ変数からのファイル名です。s///シェル変数を展開することができるようにコマンドは、二重引用符です。

paste命令があるときに、なぜこれらの強力なツールを推奨するのでしょうか！

$ cat a
A
B
C
D
$ cat b
1
2
3
4
$ paste a b
A   1
B   2
C   3
D   4

ちょっとした策略でpaste、OPの目的に使用できます。ただし、インプレースのファイルは置き換えられません。

for f in file1 file2 file3; do 
    paste $f <(yes $f | head -n $(cat $f | wc -l)) > $f.new
done

これにより、それぞれのファイル名が各ファイルの最後の列として新しいファイルに貼り付けられます filename.new

以下を使用できますawk。

awk '{print $0, FILENAME}' file1 file2 file3 ...