求助 ，文本处理

zimuyunren

两个文件
1、文件1 3500行
00002,叶尔愉,015101,图书馆
00003,龚道溢,026600,地表过程与资源生态国家重点实验室
00004,高尚玉,024800,减灾与应急管理研究院
00005,高琼,026600,地表过程与资源生态国家重点实验室

2、文件2 1800行
00001   sebalich
00004   shygao
00005   gaoq
00007   zhjunbo
00010   baolibai

需求：如果文件2的第一列，和文件1的第一列相同，就把文件1的第一列替换为文件2的第二列，自己写了个脚本可以实现，while循环，但是效率太低，3秒匹配一个，求效率高点的方法？？？？？？？？？？？

wangjun0220

awk -F"[ ,]" '{if(FILENAME=="file2.txt"){a[$1]=$2}else{if(FILENAME=="file1.txt"){if(i in a){print a[i]","$2","$3","$4}}}}' file2.txt file1.txt

wangjun0220

awk -F"[ ,]" '{if(FILENAME=="file2.txt"){a[$1]=$2}else{if(FILENAME=="file1.txt"){if(i in a){print a[i]","$2","$3","$4}}}}' file2.txt file1.txt

yestreenstars

回复 26# fantingftt123
酱能理解NR和FNR了吗？

1. [root@localhost ~]# head a b
   
2. ==> a <==
   
3. 1
   
4. 2
   
5. 3
   
6. 
   
7. ==> b <==
   
8. 1
   
9. 2
   
10. 3
    
11. 4
    
12. 5
    
13. [root@localhost ~]# awk '{printf "FILENAME: %s\tNR: %s\tFNR: %s\n",FILENAME,NR,FNR}' a b
    
14. FILENAME: a     NR: 1   FNR: 1
    
15. FILENAME: a     NR: 2   FNR: 2
    
16. FILENAME: a     NR: 3   FNR: 3
    
17. FILENAME: b     NR: 4   FNR: 1
    
18. FILENAME: b     NR: 5   FNR: 2
    
19. FILENAME: b     NR: 6   FNR: 3
    
20. FILENAME: b     NR: 7   FNR: 4
    
21. FILENAME: b     NR: 8   FNR: 5
    
22. [root@localhost ~]#

复制代码

从上面的例子可以看出当NR==FNR时表示awk在处理第一个文件。

fantingftt123

yestreenstars 发表于 2013-12-18 15:52

lz,今天看到这个帖子，但是没有看明白，NR==FNR代表的是什么？同时你写的这个命令你能说说是怎么处理过程？

rulebook

awk -F"[ ,]+" 'NR==FNR{a[$1]=$2;next}{$1=a[$1]?a[$1]1;print $0}' p pp | column -t

reyleon

1. awk 'NF>1{a[$1]=$2}NF==1{l=split($0,b,",");if(b[1] in a)b[1]=a[b[1]];for(i=0;++i<=l;)s=s?s","b[i]:b[i];print s;s=""}' 2 1

复制代码

yestreenstars

回复 21# jason680
原来可以直接在perl里用``调用外部命令，学习了~

1. perl -F, -ape '/^(\S+)\s+(\S+)$(?{$h{$1}=$2})/ for `cat b`;$F[0]=$h{$F[0]} if $h{$F[0]};$_=join ",",@F' a

复制代码

jason680

回复 19# zimuyunren

$ cat f1
00002,叶尔愉,015101,图书馆
00003,龚道溢,026600,地表过程与资源生态国家重点实验室
00004,高尚玉,024800,减灾与应急管理研究院
00005,高琼,026600,地表过程与资源生态国家重点实验室

$ cat f2
00001   sebalich
00004   shygao
00005   gaoq
00007   zhjunbo
00010   baolibai

$ perl -F, -i -lape 'BEGIN{for(`cat f2`){if(m/^(\S+)\s*(\S+)/){$h{$1}=$2}}}{if($h{$F[0]} ne ""){$F[0]=$h{$F[0]};$_=join ",",@F}}' f1

$ cat f1
00002,叶尔愉,015101,图书馆
00003,龚道溢,026600,地表过程与资源生态国家重点实验室
shygao,高尚玉,024800,减灾与应急管理研究院
gaoq,高琼,026600,地表过程与资源生态国家重点实验室