色々できるけど単純に 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_…