Term::ANSIColor

id:sumi_zumiさんのをみて試そうとしたら、Ratingに良いサンプルがあったので、それを試す。
奇麗だ。

#!/usr/bin/perl

use Term::ANSIColor;

@colors = qw(black red yellow green cyan blue magenta);

foreach $fg (@colors) {
    print color("bold $fg") . ' Hello! ' . color('reset');

    foreach $bg (@colors) {
        $bg eq $fg ? print color("white on_$bg") : print color("$fg on_$bg");
        print ' Hello! ' . color('reset');
    }

    print "\n";
}