在perl中是借助Term::ANSIColor这个模块的:
#!/usr/bin/perl
use strict;
use Term::ANSIColor;
print color 'bold red';
print "Hello word\n";
print color 'reset';
这样写的话挺麻烦的,写个函数算了:
#!/usr/bin/perl
use strict;
use Term::ANSIColor;
sub ColorMessage{
my($colors,$messages) = @_;
print color "bold $colors";
print "$messages \n";
print color 'reset';
}
ColorMessage('green','Hello word ');