Generated: Mon Aug 16 14:14:02 2010 from ansicolor2.pl 2010/01/14 734.
#!/perl -w use strict; use warnings; #use Term::ANSIColor qw(uncolor); #use Term::ANSIColor qw(:constants); #print BOLD, BLUE, "This text is in bold blue.\n", RESET; # print uncolor '01;31', "\n"; use Win32::Console::ANSI; #use Term::ANSIColor qw(:pushpop); use Term::ANSIColor qw(:constants); #print PUSHCOLOR RED ON_GREEN "This text is red on green.\n"; #print PUSHCOLOR BLUE "This text is blue on green.\n"; print RESET BLUE "This text is just blue.\n"; #print POPCOLOR "Back to red on green.\n"; #print LOCALCOLOR GREEN ON_BLUE "This text is green on blue.\n"; print GREEN ON_BLUE "This text is green on blue.\n"; print "This text is red on green.\n"; my $col1 = 0x1b."[2:3:"; print "1 $col1 234\n";