Perl 终端输出的颜色控制

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

注意：最后的 $end 不能丢掉，每行文字都必须以它结尾。