Sekmeyle ayrılmış dosyaya değer sütunu ekleme

Nasıl belirli sayıda satır içeren bir dosyaya değer sütunu ekleyebilirim. Ben böyle bir girdi dosyası var:

Giriş dosyası:

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

Çıktı dosyası:

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

Bu durumda, dosyadaki satır sayısına kadar bir değer sütunu eklemek istiyorum. Değer "dosya1" gibi tutarlı kalır.

Bunun nedeni, bu dosyalardan 100 tanesine sahip olmam. Her dosyayı açmak ve bir sütun yapıştırmak istemiyorum. Ayrıca, bir dizine girip bir değer sütunu ekleyerek bunu otomatikleştirmenin herhangi bir yolu vardır. Değer, son / ilk sütundaki dosyanın her satırına eklenmesi gereken dosya adından gelir.

Bunun gibi tek katmanlı bir döngü kullanabilirsiniz:

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

Listedeki her dosya için bu sed, her satırın sonuna bir sekme ve dosya adı eklemek için kullanılır .

Açıklama:

• Yerinde değiştirme yapmak için -ibayrağını kullanma sed, dosyanın üzerine yazma
• İle bir ikame gerçekleştirin s/PATTERN/REPLACEMENT/. Bu örnekte, PATTERN $satırın sonu ve REPLACEMENT \t(= bir SEKME) ve $fdöngü değişkeninden dosya adıdır. s///Kabuk değişkenleri genişletmek, böylece komut çift tırnak içinde.

pasteKomuta varken neden bu güçlü araçları önerdiğinize gelin !

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

Küçük bir hile pasteile OP'nin amacı için kullanabilirsiniz . Ancak, dosyaları yerinde değiştirmez:

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

Bu, ilgili dosya adını her dosyanın son sütunu olarak yeni dosyaya yapıştıracaktır filename.new

Şunları kullanabilirsiniz awk:

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