今更ながら、autobox面白いな、と思ったので。 http://github.com/zentooo/p5-term-ansicolor-relax 下のコードを実行すると use Term::ANSIColor::Relax; use feature qw/say/; say "I"->green; # color say "love"->magenta->bold->underscore; # style say "you"->white->on_blue; # background こうなる。 さらに、rainbowというメソッドを使うと use strict; use warnings; use Test::More; use Term::ANSIColor::Relax; my $timtoady = <<'TIMTOADY'; ##### ### # # ##### ###