序列显色

 linux 下fasta序列按碱基显色

use strict;
use warnings;

my $black         = "33[0;30m";
my $dary_gray     = "33[1;30m";    
my $light_gray    = "33[0;37m";
my $blue          = "33[0;34m";    
my $light_blue    = "33[1;34m";
my $green         = "33[0;32m";    
my $light_green   = "33[1;32m";
my $cyan          = "33[0;36m";    
my $ligth_cyan    = "33[1;36m";
my $red           = "33[0;31m";    
my $ligth_red     = "33[1;31m";    
my $red_bold      = "33[01;31m";
my $purple        = "33[0;35m";    
my $light_purple  = "33[1;35m";
my $brown         = "33[0;33m";
my $yellow        = "33[1;33m";
my $white         = "33[1;37m";
my $default_color = "33[00m";
my $end           = "33[0m";

open A,"$ARGV[0]";
<A>;
while(<A>){
    chomp;
    foreach my $base(split //){
        my $o="";
        if($base eq "A"){
            $o=$blue.$base.$end;
        }
        if($base eq "T"){
            $o=$yellow.$base.$end;    
        }
        if($base eq "G"){
            $o=$cyan.$base.$end;
        }
        if($base eq "C"){
            $o=$purple.$base.$end;    
        }
        print "$o";
    }
    print "
";
}
close A;