條件匹配后進(jìn)行替換篩選

tingshuibanxia

假如文本A,以tab分隔:

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

如果第二列內(nèi)容匹配 sss 則以aa代替并輸出此行內(nèi)容
如果第二列內(nèi)容匹配 nnn 則以bb代替并輸出此行內(nèi)容
第二列沒有匹配到的行去掉，
得到：

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


用數(shù)組實(shí)現(xiàn)。大神幫忙看看代碼有問題嗎？哪里可以優(yōu)化呢？

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;
    

復(fù)制代碼

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
    

復(fù)制代碼

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;

復(fù)制代碼

tingshuibanxia

謝謝你們！小菜鳥在努力中~

tingshuibanxia

回復(fù) 3# stanley_tam


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

stanley_tam

寫成這樣試試？

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

復(fù)制代碼

回復(fù) 5# tingshuibanxia


   

tingshuibanxia

回復(fù) 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