文件合并问题！

月光宝盒

文件file1:
103         16
104           8
文件file2:
103                   38
104                   35
606                 2154
682                  199
需合并为：
103      16      38
104      8        35
606               2154
682               199
应该如可写？

eliumao

用perl比较方便
-----------------------------------------------------
#!/usr/bin/perl -w
use strict;
open File1,"<file1";
open File2,"<file2";
my %FILE1;
my %FILE2;
while(<File1>{
        chomp;
        my @temp=split;
        $FILE1{$temp[0]}=$temp[1];
}
while(<File2>{
        chomp;
        my @temp=split;
        $FILE2{$temp[0]}=$temp[1];
}
foreach(sort keys %FILE2){
        print $_." ";
        print $FILE1{$_}." " if ($FILE1{$_});
        print $FILE2{$_}."\n";
}
---------------------------------------------------

月光宝盒

多谢了！

bzzyg

哪位高手用awk语句写一下?

冷风

偶也想知道
偶还想知道哪里可以买到权威的awk权威指南

swysn

其实有更简单的办法:
join -a1 file1 file2 > newfile
join -v1 file2 file1 >> newfile

swysn

其实有更简单的办法:
join -a1 file2  file1 > newfile

miling

先将两文件合并：
cat file1 file2 >file3

然后用awk会好用些：
awk '{
????if($1 in aa)
??????for(i=2;i<=NF;i++)
????????aa[$1]=sprintf("%s %s",aa[$1],$i);
????else
??????for(i=2;i<=NF;i++) aa[$1]=sprintf("%s",$i);
??}
?END?{for(i in aa) print i, aa}' file3

在FreeBSD4.7下测试通过。
上面代码只是为了更好看清楚，命令行如下：
awk '{if($1 in aa)for(i=2;i<=NF;i++) aa[$1]=sprintf("%s %s",aa[$1],$i);else for(i=2;i<=NF;i++) aa[$1]=sprintf("%s",$i);}END{for(i in aa) print i, aa}' file3

红袖添香

[quote]原帖由 "eliumao"]用perl比较方便[/quote 发表：


perl 高手啊，而且喜歡這句口頭禪~~  ：）