大家帮忙看这个问题怎么解决

codeternity

有一个文件，内容如下：

    original1_for original2_for ND1 ND2 ND3 ND4 ND5
name1 A G AB AA BB BA NN
name2 T C BB BB AA NN AB
name3 G C AA BA NN BB AB
name4 C G BA AA BB NN AB
name5 A C AB BB NN BA AB

对每行来讲，从第四列开始，后面的字母组合均是替换过后的，替换的原则是：original1_for="A"，original2_for="B"。现在想还原回去，即最终想要的结果如下（N就替换为0（零））：

    original1_for original2_for ND1 ND2 ND3 ND4 ND5
name1 A G AG AA GG GA 00
name2 T C CC CC TT 00 TC
name3 G C GG CG 00 CC GC
name4 C G GC CC GG 00 CG
name5 A C AC CC 00 CA AC

请大家帮帮忙，看这个问题该如何解决

rubyish

看看:

1. #!/usr/bin/perl
   
2. my %back = qw/A 1 B 1 N 0/;
   
3. print scalar <DATA>;
   
4. while (<DATA>) {
   
5.     my ( $N, $A, $S, $B, $T ) = /^(\S+\s+)(.)(\s+)(.)(.*)/s;
   
6.     @back{qw/A B/} = ( $A, $B );
   
7.     $T =~ s/(\S)/$back{$1}/g;
   
8.     print $N, $A, $S, $B, $T;
   
9. }
   
10. 
    
11. __DATA__
    
12.     original1_for original2_for ND1 ND2 ND3 ND4 ND5
    
13. name1 A G AB AA BB BA NN
    
14. name2 T C BB BB AA NN AB
    
15. name3 G C AA BA NN BB AB
    
16. name4 C G BA AA BB NN AB
    
17. name5 A C AB BB NN BA AB
    

复制代码

yestreenstars

1. #!/usr/bin/perl
   
2. 
   
3. print scalar <DATA>;
   
4. 
   
5. while (<DATA>) {
   
6.         split;
   
7.         for ($i=3;$i<@_;$i++) {
   
8.                 $_[$i] =~ s/A/$_[1]/g;
   
9.                 $_[$i] =~ s/B/$_[2]/g;
   
10.                 $_[$i] =~ s/N/0/g;
    
11.         }
    
12.         join @_;
    
13.         print "@_\n";
    
14. }
    
15. 
    
16. __DATA__
    
17.     original1_for original2_for ND1 ND2 ND3 ND4 ND5
    
18. name1 A G AB AA BB BA NN
    
19. name2 T C BB BB AA NN AB
    
20. name3 G C AA BA NN BB AB
    
21. name4 C G BA AA BB NN AB
    
22. name5 A C AB BB NN BA AB

复制代码

codeternity

回复 2# rubyish
谢啦！
赞一个！
非常棒！

   

codeternity

回复 3# yestreenstars
谢谢！
还是集思义广呀！