[oracle@jhoa ~]$ cat d1.pl
my $red="\e[1;31m";
print "$red xx\n";
my $green="\e[1;32m";
print "$green xx\n";
my $yellow="\e[1;33m";
print "$yellow xx\n";
my $normal="\e[0m";
print "$normal xx\n";
[oracle@jhoa ~]$ perl d1.pl
xx
xx
xx
xx
[oracle@jhoa ~]$
Perl 颜色
最新推荐文章于 2019-04-29 17:33:00 发布