Term::ANSIColorでターミナルに色付きで出力する

色々できるけど単純に color と colored だけ使って不便は無い。

use strict;
use warnings;
use Term::ANSIColor qw/colored/;

for my $c (qw/black red green yellow blue magenta cyan white/) {
    print colored(["$c"], "$c\t");
    print colored(["bright_$c"], "bright_$c\t");
    print colored(["on_$c"], "on_$c\t");
    print "\t" if length $c < 5;
    print colored(["on_bright_$c"], "on_bright_$c\t");
    print "\n";
}

for my $i (0..15) {
    print colored(["ansi$i"], "ansi$i\t");
    print colored(["grey$i"], "grey$i\t");
    print colored(["on_ansi$i"], "on_ansi$i\t");
    print colored(["on_grey$i"], "on_grey$i\t");
    print "\n";
}