替换问题

newfinder

假如有这样一个文件data1:
name1 A C AA SS AS SA 00 ……
name2 A H WW WA AA AW 00 ……
name3 A I AY YA YY AA 00 ……
name4 C H CC CZ ZZ ZC 00 ……
……


前三列是固定的，从第三列开始每两个字母是一列。而且第三列之后的那些字母都是两个字母的组合，但这两个字母中一定含有第二列的字母。现在想作替换，结果变为：


data2:
name1 A C AA CC AC CA 00 ……
name2 A H HH HA AA AH 00 ……
name3 A I AI IA II AA 00 ……
name4 C H CC CH HH HC 00 ……
……
00（零零）保持不变

也即把第三列之后的两个字母中不是第三列的替换为第三列的字母，第二列不变

大神们看这个该怎么写呢

jason680

回复 1# newfinder

$ cat ch.pl
use strict;
use warnings;

while(<DATA>){
  chomp;
  my ($sName, $sK1, $sK2, @aData) = split;
  my %hKey = ( $sK1 => $sK1, '0' => '0');
  foreach(@aData){
    s/(\S)/defined $hKey{$1}?$hKey{$1}:$sK2/ge;
  }
  $_ = join(" ", $sName, $sK1, $sK2, @aData);
  print "$_\n";;
}

__DATA__
name1 A C AA SS AS SA 00
name2 A H WW WA AA AW 00
name3 A I AY YA YY AA 00
name4 C H CC CZ ZZ ZC 00

$ perl ch.pl
name1 A C AA CC AC CA 00
name2 A H HH HA AA AH 00
name3 A I AI IA II AA 00
name4 C H CC CH HH HC 00

   

reyleon

1. #!usr/bin/python
   
2. 
   
3. with open('file') as f:
   
4.         lines = f.readlines()
   
5.         for line in lines:
   
6.                 l = line.strip().split()
   
7.                 for n in range(3,len(l)):
   
8.                         if l[n] == '00':continue
   
9.                         p = list(l[n])
   
10.                         for k,v in enumerate(p):
    
11.                                 if v != l[1]:p[k] = l[2]
    
12.                         l[n] = ''.join(p)
    
13.                 print ' '.join(l)

复制代码

比较暴力!

newfinder

回复 2# jason680
32个赞……
太棒了！

   

newfinder

回复 3# reyleon
大神，请问这是python吗，我还没接触过python啊……

   

yestreenstars

1. #!/usr/bin/perl
   
2. while (<DATA>) {
   
3.         @_ = split;
   
4.         map { $_[$_] =~ s/[^0$_[1]$_[2]]/$_[2]/g } 3..$#_;
   
5.         print join " ", @_, $/;
   
6. }
   
7. __DATA__
   
8. name1 A C AA SS AS SA 00
   
9. name2 A H WW WA AA AW 00
   
10. name3 A I AY YA YY AA 00
    
11. name4 C H CC CZ ZZ ZC 00

复制代码

skyyy90

回复 6# yestreenstars


    好简洁啊！

newfinder

回复 6# yestreenstars
同意！！！

   

leo66888

mark down here

104359176

回复 7# skyyy90


    你说的简洁，是看起来代码少，很漂亮，但这种代码难以理解，更难以调试，不过比贴二进制好点。