Perl 改变字体颜色的脚本

#!/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';        # 恢复为默认。
#------------------------------------------------

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

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