条件匹配后进行替换筛选

tingshuibanxia

假如文本A,以tab分隔:

2c    sss    e3rh48
d1   nnn    wure2
11    WW    34ER3
....

如果第二列内容匹配 sss 则以aa代替并输出此行内容
如果第二列内容匹配 nnn 则以bb代替并输出此行内容
第二列没有匹配到的行去掉，
得到：

2c    aa    e3rh48
11    bb    34ER3
....


用数组实现。大神帮忙看看代码有问题吗？哪里可以优化呢？

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. 
   
5. open (IN, "<", "A.txt") or die $!;
   
6. open (OUT,">", "B.txt") or die $!;
   
7. 
   
8. my @A;
   
9. my @B;
   
10. 
    
11. while (<IN>{
    
12.     chomp;
    
13.     @A = split("\t", $_);
    
14.     @B = @A;
    
15.     my $m = $A[1];
    
16.     if ($m eq "sss"){
    
17.         $m = "aa";
    
18.         $B[1] = $m;
    
19.     }elsif($m eq "nnn"){
    
20.         $m = "bb"
    
21.         $B[1] = $m;
    
22.     }
    
23.     print OUT @B;
    
24. }
    
25. close IN;
    
26. close OUT;
    

复制代码

sunzhiguolu

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. while (<DATA>){
   
5.     chomp;
   
6.     my @A = split ("\t", $_);
   
7.     my @B = @A;
   
8.     my $m = $A[1];
   
9.     if ($m eq 'f^ce,i'){
   
10.         $B[1] = 'aa';
    
11.     }
    
12.     if ($m eq 'E,WE'){
    
13.         $B[1] = 'bb';
    
14.     }
    
15. 
    
16.     if ($m ne $B[1]){
    
17.         print "@B\n";
    
18.     }
    
19. }
    
20. 
    
21. __DATA__
    
22. 2c  f^ce,i  e3rh48
    
23. d1  a,b11   wure2
    
24. 11  E,WE    34ER3
    

复制代码

perl abc.pl
--------------------------------
2c aa e3rh48
11 bb 34ER3

stanley_tam

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. open (IN, "<", "A.txt") or die $!;
   
5. open (OUT,">", "B.txt") or die $!;
   
6. 
   
7. # my @A;
   
8. # my @B;
   
9. 
   
10. my %hash = (
    
11.     'f^ce,i' => 'aa',
    
12.     'E,WE'   => 'bb',
    
13. );
    
14. 
    
15. while (<IN>) {
    
16.     chomp;
    
17.     my @A = split("\t", $_);
    
18.     if (exists $hash{$A[1]}) {
    
19.         $A[1] = $hash{$A[1]};
    
20.         print OUT "@A$/";
    
21.     }
    
22.     # @B = @A;
    
23.     # my $m = $A[1];
    
24.     # if ($m eq "f^ce,i"){
    
25.         # $m = "aa";
    
26.         # $B[1] = $m;
    
27.     # }elsif($m eq "E,WE"){
    
28.     #     $m = "bb"
    
29.     #     $B[1] = $m;
    
30.     # }
    
31.     # print OUT @B;
    
32. }
    
33. close IN;
    
34. close OUT;

复制代码

tingshuibanxia

谢谢你们！小菜鸟在努力中~

tingshuibanxia

回复 3# stanley_tam


    再请教一下，我想输出文件列之间仍然以tab分隔：print OUT join("\t","@A$/"); 可是输出是空格分隔，为什么呢？

stanley_tam

写成这样试试？

1. 
   
2. my $line = join "\t", @A;
   
3. print OUT "$line$/";
   

复制代码

回复 5# tingshuibanxia


   

tingshuibanxia

回复 6# stanley_tam


    这样写可以！好神奇！

RE_HASH

$>  cat aa|perl -ne 'print if (s/f\^ce,i/aa/ + s/E,WE/bb/)'
2c    aa    e3rh48
11    bb    34ER3