放分求教一个程序

jobbie1230

数据如下
1 a
2 b
3 c
4 d
5 a
6 c

要把如上数据切割成两个文件
（1）第二列有重复的放在一起
1 a
5 a
3 c
6 c
(2) 第二列不重复的放在一起
2 b
4 d

不知道用awk来怎么写，求教了，分不够可以再加的

ly5066113

awk 'NR==FNR{a[$2]++}NR>FNR{if(a[$2]>1) print > "1.txt";else print > "2.txt"}' urfile urfile

springwind426

1. 
   
2. awk '{
   
3. a[$2]++;
   
4. b[$2,a[$2]]=$0;
   
5. }
   
6. END{
   
7. for(i in a){
   
8.   if(a[i]==1){
   
9.     print b[i,1] >>"fileA";
   
10.   }else{
    
11.     for(j=1;j<=a[i];j++)print b[i,j] >>"fileB";
    
12.   }
    
13. }}'  数据文件
    

复制代码

davistar

这么多分　啧啧
来晚了　凑热闹

1. 
   
2. awk '{a[$1]=$2;b[$2]++}END{for(i in a){if(b[a[i]] > 1){print i,a[i] > "A"}else{print i,a[i] > "B"}}}'  urfile
   

复制代码

BLZer

我等不会用awk数组之人只能看着眼红了...

davistar

兄弟来个sed滴，

nuclearxin

三个都很强~~~~
哈哈哈顶
学习ing

springwind426

用sed（需要sort帮忙）写一个

1. 
   
2. sort -k2 数据文件 | sed -r -n '
   
3. $!{/\n/!N}
   
4. / (.*)\n.*(\1)$/{w f1
   
5. d}
   
6. W f2
   
7. D'
   

复制代码

结果分别保存在 f1 和 f2 中

nuclearxin

原帖由 davistar 于 2007-11-28 11:32 发表
这么多分　啧啧
来晚了　凑热闹


awk '{a[$1]=$2;b[$2]++}END{for(i in a){if(b[a] > 1){print i,a > "A"}else{print i,a > "B"}}}'  urfile

看懂了
相对于 上面两个awk的例子 依赖$1的不能有重复

jobbie1230

有一个问题，我的第二列特别的长，要20位数字的，好像作为数组名不行