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"; }