請(qǐng)教如何文件名保存為新文件列名

qcshare

有200個(gè)txt文件，提取每個(gè)文件的第二列，并把所有200個(gè)文件的第二列合成一個(gè)新文件。
我想實(shí)現(xiàn)這樣：

比如3個(gè)txt文件： 1.txt， 2.txt, 3.txt。。。

文件1.txt內(nèi)容為：
site1     54
site2     89
site3     45

文件2.txt內(nèi)容為：
site1     100
site2     97
site3     46

文件3.txt內(nèi)容為：
site1     120
site2     66
site3     55

。。。

最后output.txt 文件在第一行加一行名稱，名稱顯示這一列是從哪個(gè)文件的第二列來的，最后文件如下：
1.txt      2.txt     3.txt    。。。
54         100       120     。。。
89         97         66       。。。
45         46         55       。。。

再次感謝！

bikong0411

awk '{if(FNR==1){a[0]=a[0]?a[0]"\t"FILENAME:FILENAME;}a[FNR]=a[FNR]?a[FNR]"\t"$22}END{for(i in a){print a[i]}}' 1.txt  2.txt 3.txt

qcshare

如果是200個(gè)txt 文件呢，一個(gè)一個(gè)輸文件名么？


回復(fù) 2# bikong0411


   

qcshare

或者200個(gè)文件，每個(gè)文件只有一列，用paste把他們都何在一起。

怎么加對(duì)應(yīng)的表頭呢？

謝謝！

bikong0411 發(fā)表于 2013-09-20 09:23
awk '{if(FNR==1){a[0]=a[0]?a[0]"\t"FILENAME:FILENAME;}a[FNR]=a[FNR]?a[FNR]"\t"$22}END{for(i in a){ ...

WilliBhamlll

[quote]qcshare 發(fā)表于 2013-09-20 20:56
如果是200個(gè)txt 文件呢，一個(gè)一個(gè)輸文件名么？

想錯(cuò)了

liion631818

回復(fù) 4# qcshare


    只有一列就這樣"

1. 
   
2. echo *.txt>/udir/all.txt
   
3. paste *.txt>>/udir/all.txt
   
4. 
   

復(fù)制代碼

井蛙夏蟲

回復(fù) 4# qcshare
試試這個(gè)

1. ls *.txt | xargs echo | tee dist_file | xargs paste | awk  -vORS="\t" '{i=2;while(i<NF){print $i;i+=2}printf "%s\n",$NF}' > tmp_file;cat tmp_file >> dist_file;rm tmp_file

復(fù)制代碼

qcshare

嗯，謝謝啦~

回復(fù) 6# liion631818


   

qcshare

非常感謝~
回復(fù) 7# 井蛙夏蟲


   

bikong0411

回復(fù) 3# qcshare


    awk也支持*.txt啊