序列显色

 linux 下fasta序列按碱基显色

 1 use strict;
 2 use warnings;
 3 
 4 my $black         = "\033[0;30m";
 5 my $dary_gray     = "\033[1;30m";    
 6 my $light_gray    = "\033[0;37m";
 7 my $blue          = "\033[0;34m";    
 8 my $light_blue    = "\033[1;34m";
 9 my $green         = "\033[0;32m";    
10 my $light_green   = "\033[1;32m";
11 my $cyan          = "\033[0;36m";    
12 my $ligth_cyan    = "\033[1;36m";
13 my $red           = "\033[0;31m";    
14 my $ligth_red     = "\033[1;31m";    
15 my $red_bold      = "\033[01;31m";
16 my $purple        = "\033[0;35m";    
17 my $light_purple  = "\033[1;35m";
18 my $brown         = "\033[0;33m";
19 my $yellow        = "\033[1;33m";
20 my $white         = "\033[1;37m";
21 my $default_color = "\033[00m";
22 my $end           = "\033[0m";
23 
24 open A,"$ARGV[0]";
25 <A>;
26 while(<A>){
27     chomp;
28     foreach my $base(split //){
29         my $o="";
30         if($base eq "A"){
31             $o=$blue.$base.$end;
32         }
33         if($base eq "T"){
34             $o=$yellow.$base.$end;    
35         }
36         if($base eq "G"){
37             $o=$cyan.$base.$end;
38         }
39         if($base eq "C"){
40             $o=$purple.$base.$end;    
41         }
42         print "$o";
43     }
44     print "\n";
45 }
46 close A;

 

posted @ 2021-06-08 16:35  天使不设防  阅读(111)  评论(0)  编辑  收藏  举报