请教如何文件名保存为新文件列名

qcshare

有200个txt文件，提取每个文件的第二列，并把所有200个文件的第二列合成一个新文件。
我想实现这样：

比如3个txt文件： 1.txt， 2.txt, 3.txt。。。

文件1.txt内容为：
site1     54
site2     89
site3     45

文件2.txt内容为：
site1     100
site2     97
site3     46

文件3.txt内容为：
site1     120
site2     66
site3     55

。。。

最后output.txt 文件在第一行加一行名称，名称显示这一列是从哪个文件的第二列来的，最后文件如下：
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个txt 文件呢，一个一个输文件名么？


回复 2# bikong0411


   

qcshare

或者200个文件，每个文件只有一列，用paste把他们都何在一起。

怎么加对应的表头呢？

谢谢！

bikong0411 发表于 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 发表于 2013-09-20 20:56
如果是200个txt 文件呢，一个一个输文件名么？

想错了

liion631818

回复 4# qcshare


    只有一列就这样"

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

复制代码

井蛙夏虫

回复 4# qcshare
试试这个

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

复制代码

qcshare

嗯，谢谢啦~

回复 6# liion631818


   

qcshare

非常感谢~
回复 7# 井蛙夏虫


   

bikong0411

回复 3# qcshare


    awk也支持*.txt啊