Perl 改变字体颜色 Windows and Linux

1.wiindows

#!/usr/bin/perl -w
use Win32::Console::ANSI;
use Term::ANSIColor;

print color 'bold green';  
print "Hello World!\n";
print color 'reset'; 

####################################################
print color 'bold green';   #设定颜色为bold green.

print "Hello World!\n";     #This line is green.
print color 'reset';        # 恢复为默认。

#####################################################

2. Linux

1>

#!/usr/bin/perl
use Term::ANSIColor;
print color 'bold red';
print "Hello World!\n";
print color 'reset';

2>

#!/usr/bin/perl -w
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;
print RED "Hello World!\n";