linux下批量替换的问题

ilovefushun

有一个数据文件a：
# 990430_232320 000210_132231 0.0
YOS -0.22000003
YUL 0.079999924
# 990501_000720 000210_132231 0.0
LIJ -0.080000043
YUL 0.12 1 P
# 990707_214529 000210_132231 0.0
YOS 0.059999943
# 990907_090133 000210_132231 0.0
BAS 0.38 1 P
# 991027_211412 000210_132231 0.0
HEQ -0.65999997


其中#后的两列为ID（旧），此外还有一ID列表b，第一列为旧的ID，第二列为新的ID：
000210_132231 1001
990430_232320 1002
990501_000720 1003
990707_214529 1004
990907_090133 1005
991027_211412  1006
现在想把a中的所有旧ID替换成新的ID，生成文件c：
# 1002 1001 0.0
YOS -0.22000003
YUL 0.079999924
# 1003 1001 0.0
LIJ -0.080000043
YUL 0.12 1 P
# 1004 1001 0.0
YOS 0.059999943
# 1005 1001 0.0
BAS 0.38 1 P
# 1006 1001 0.0
HEQ -0.65999997


我之前用sed一个一个替换，但是由于数据太多，执行效率太低了，后来用awk的双文件处理，但是执行过程中会出错，命令如下：
awk 'NR==FNR{a[$1]=$2;next}NR>FNR{if($2 in a)print $1,a[$1],$3,$4;else print $0}' b a > temp
awk 'NR==FNR{a[$1]=$2;next}NR>FNR{if($3 in a)print $1,$2,a[$1],$4;else print $0}' b temp > c

请问是哪里出错了，应该怎样做，谢谢！

jason680

回复 1# ilovefushun

$ awk 'FNR==NR{a[$1]=$2;next}/^#/{for(n=2;n<NF;++n)if($n in a)$n=a[$n]}1' b a > c

$ cat c
# 1002 1001 0.0
YOS -0.22000003
YUL 0.079999924
# 1003 1001 0.0
LIJ -0.080000043
YUL 0.12 1 P
# 1004 1001 0.0
YOS 0.059999943
# 1005 1001 0.0
BAS 0.38 1 P
# 1006 1001 0.0
HEQ -0.65999997

ilovefushun

回复 2# jason680

可以了，谢谢！

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $keys = {};
   
6. while(<DATA>){
   
7.         last if(/\A\s*\z/);
   
8.         my ($old, $new) = split;
   
9.         $keys->{$old} = $new;
   
10. }
    
11. 
    
12. while(<DATA>){
    
13.         if(!/\A#/){
    
14.                 print;
    
15.                 next;
    
16.         }
    
17.         foreach my $id (grep {exists($keys->{$_})} (split)[1, 2]){
    
18.                 s/$id/$keys->{$id}/;
    
19.         }
    
20.         print;
    
21. }
    
22. 
    
23. __DATA__
    
24. 000210_132231 1001
    
25. 990430_232320 1002
    
26. 990501_000720 1003
    
27. 990707_214529 1004
    
28. 990907_090133 1005
    
29. 991027_211412  1006
    
30. 
    
31. # 990430_232320 000210_132231 0.0
    
32. YOS -0.22000003
    
33. YUL 0.079999924
    
34. # 990501_000720 000210_132231 0.0
    
35. LIJ -0.080000043
    
36. YUL 0.12 1 P
    
37. # 990707_214529 000210_132231 0.0
    
38. YOS 0.059999943
    
39. # 990907_090133 000210_132231 0.0
    
40. BAS 0.38 1 P
    
41. # 991027_211412 000210_132231 0.0
    
42. HEQ -0.65999997
    

复制代码

龙牙地主天

1. awk 'NR==FNR{a[$1]=$2 ; next}/^#/{for(i in a) {if($2==i) $2=a[$2] ; if($3==i) $3=a[$3]}}1' b a

复制代码

1. awk 'NR==FNR{a[$1]=$2 ; next}/^#/{for(i in a) {if($2==i) $2=a[$2] ; if($3==i) $3=a[$3]}}{print > "c"}' b a

复制代码

wh7211

回复 1# ilovefushun

1. awk 'NR==FNR{a[$1]=$2;next}/^#/{$2=$2 in a?a[$2]:$2;$3=$3 in a?a[$3]:$3}{print>"c"}' b a

复制代码

ilovefushun

回复 2# jason680

不好意思，还有一个问题。if($2 in a)，表示如果$2的值在数组a中，则执行后面的命令，我想问一下如果$2的值不在数组a中应该怎么写？if(! $2 in a)，if !($2 in a)，!(if($2 in a))，这几种写法都试了，但是都运行不了

jason680

回复 8# ilovefushun

$ echo 1 2 3 4 x y z| awk 'BEGIN{a[1]=a[4]=a["y"]=1}{for(n=1;n<=NF;++n)if($n in a)print $n}'
1
4
y

$ echo 1 2 3 4 x y z| awk 'BEGIN{a[1]=a[4]=a["y"]=1}{for(n=1;n<=NF;++n)if(!($n in a))print $n}'
2
3
x
z

$ echo 1 2 3 4 x y z| awk 'BEGIN{a[1]=a[4]=a["y"]=1}{for(n=1;n<=NF;++n)if($n in a)print "yes:"$n;else print "no:"$n}'
yes:1
no:2
no:3
yes:4
no:x
yes:y
no:z

ilovefushun

回复 9# jason680

哦，知道了，谢谢您！