【求助】实现复杂一点的comm功能

wanggd1983

想实现复杂一点的comm的功能，文件格式是这样的：

file 1:
A  1  name1-1  name2-1
A  2  name3-1  name9-1
A  5  name7-1  name6-1

file 2:
A  1  name1-2  name2-2
A  3  name3-2  name9-2
A  5  name7-2  name6-2

两个文件按照第一列asc码，第二列数字排过序。

需要的操作是，比较前两列，如果一致，则将两行打入一列，file1 在前，file2在后；如果不一致按照顺序排列下来，即：

After comm process：(F1, file1;  F2, file 2)

F1   A  1  name1-1  name2-1      F2   A  1  name1-2  name2-2
F1   A  2  name3-1  name9-1
F2   A  3  name3-2  name9-2
F1   A  5  name7-1  name6-1      F2   A  5  name7-2  name6-2

实际文本很大，需逐行操作。请问如此文本操作，如何用shell实现？ 谢谢。

ywlscpl

1. awk 'NR==FNR{a[$1" "$2]=$0}NR>FNR{b[$1" "$2]=$0}END{for (i in a) print "F1",a[i](i in b?"\tF2 "b[i]:"");for (i in b) if (!(i in a)) print "F2",b[i]}' file1 file2

复制代码

ywlscpl

逐行处理的。。

1. awk 'NR==FNR{a[NR]=$0;a1[NR]=$1"#"$2}NR>FNR{b[FNR]=$0;b1[FNR]=$1"#"$2}END{for (i=1;i<=FNR;i++) if (a1[i]==b1[i]) print "F1",a[i]"\tF2",b[i];else {print "F1",a[i];print "F2",b[i]}}' file1 file2

复制代码

ly5066113

不用数组，用 getline var <file 的方式会省很多内存。

beginner-bj

只会数组

1. awk 'NR==FNR{a[$1,$2]="F1 "$0} NR>FNR{a[$1,$2]=a[$1,$2](a[$1,$2]?" ":"")"F2 "$0}END{for (i in a) print a[i]}' file1 file2

复制代码

看看TIM的getline var <file 例子啦

ywlscpl

多谢Tim指教，对getline有了新的认识

1. awk '{getline v <"file2";if (v~"^"$1" +"$2) print "F1",$0"\tF2",v;else {print "F1",$0;print "F2",v}}' file1

复制代码

beginner-bj

学习

blackold

学习，学习!

ly5066113

其实我感觉楼主的需求不是一句代码能完成的。
因为输出的结果应该是需要排序的。

file1 file2 各读入一行记录，如果相等，则打印，不相等则打印排序靠前面的一行，然后读入下一行继续判断。

ywlscpl

目前我是这样理解楼主的逐行处理的，不知道楼主是不是这样的意思：
读入file1第1行，读入file2第1行，两者判断，然后打印
读入file1第2行，读入file2第2行，两者判断，然后打印
。。。。。。。。

如果是这样，两者不同需排序时可以这样

1. [root@Mylinux tmp]# cat file1
   
2. A  1  name1-1  name2-1
   
3. A  4  name3-1  name9-1
   
4. A  5  name7-1  name6-1
   
5. [root@Mylinux tmp]# cat file2
   
6. A  1  name1-2  name2-2
   
7. A  3  name3-2  name9-2
   
8. A  5  name7-2  name6-2
   
9. [root@Mylinux tmp]# awk '{getline v <"file2";if (v~"^"$1" +"$2) print "F1",$0"\tF2",v;else {split($0,M," +");split(v,N," +");if (M[2]<N[2]){print "F1",$0;print "F2",v}else {print "F2",v;print "F1",$0}}}' file1
   
10. F1 A  1  name1-1  name2-1       F2 A  1  name1-2  name2-2
    
11. F2 A  3  name3-2  name9-2
    
12. F1 A  4  name3-1  name9-1
    
13. F1 A  5  name7-1  name6-1       F2 A  5  name7-2  name6-2

复制代码

如果不是这样行一一对应的关系，感觉还是要用到数组好处理

[ 本帖最后由 ywlscpl 于 2009-11-25 11:12 编辑 ]