awk 多个文件列合并 求高效脚本

zang232

paste  a.txt  b.txt  c.txt >abc.txt 不就成了!AWK?小题大做了~~

bjsfeng

paste  a.txt  b.txt  c.txt >abc.txt 不就成了!AWK?小题大做了~~
zang232 发表于 2010-12-17 14:09

    大题小做了啊 paste 无法匹配上a.txt$1  b.txt$1

bjsfeng

回复 7# jason680


PERL是个好思路
但是
报出 Modfication of non-creatable array value attempted , subscript 5699 at 1234.pl line 15, <FHin> line 1

yinyuemi

awk '{print $1}' 1.txt 2.txt 3.txt | sort -n|uniq > tem
awk 'NR==FNR {a[$1]=$2} NR>FNR{print $1,a[$1]}' 1.txt tem| awk 'NF<2{NF+=1;$NF=0}1'>tem1
awk 'NR==FNR {a[$1]=$2} NR>FNR {print $1,$2,a[$1]}' 2.txt tem1 | awk 'NF<3{NF+=1;$NF=0}1'>tem2
awk 'NR==FNR {a[$1]=$2} NR>FNR{print $1,$2,$3,a[$1]}' 3.txt tem2 | awk 'NF<4{NF+=1;$NF=0}1'| sed 's/ /\t/g'
rm tem*


1       456798  1233    1343
2       456764  0       1343
3       489743  1324    1324
4       0       1234    0
5       136633  0       0

bjsfeng

回复 9# ly5066113


    还有一个问题 有的时候$1起始的第一个值 可能就为很大的数 可能这个awk就有问题了

jason680

回复  jason680


PERL是个好思路
但是
报出 Modfication of non-creatable array value attempted  ...
bjsfeng 发表于 2010-12-17 14:29

我试过Linux/windows都没问题....

你会不会忘了给(档案)参数
# perl item_combine.pl foo.*
item      foo.1      foo.2      foo.3
1         11234          0          0
2         12555      22123          0
3             0      23567      33234
4         14111      24333          0
5         15000          0          0
6             0          0      36567

# uname -a
Linux atayal-server 2.6.9-42.ELlargesmp #1 SMP Wed Jul 12 23:46:39 EDT 2006 x86_64 x86_64 x86_64 GNU/Linux

# perl -v

This is perl, v5.8.5 built for x86_64-linux-thread-multi

yinyuemi

再来个，呵呵

cat 1.txt 2.txt 3.txt | awk '{print $1}' | sort -n |uniq > tem
for i in `echo 1 2 3`
do
awk 'NR==FNR{a[$1]=$2}NR>FNR{print (a[$1]?a[$1]:"0") >"tem'$i'"}' $i.txt tem
done
paste tem tem1 tem2 tem3
rm tem*

ly5066113

回复 15# bjsfeng

用 GNU awk 就不会有问题了：

1. awk 'FNR==1{n++}{a[$1","n]=$2;b[$1]=$1}END{for(i=1;i<=asort(b);i++){printf b[i];for(j=1;j<=n;j++) printf "%8s",a[b[i]","j]?a[b[i]","j]:0;print ""}}' [abc].txt

复制代码