南港摳頂: Perl: Term::ANSIColor

2010年3月11日星期四


print color("red"), "Text is red\n", color("reset");

print RED "Text is red\n", RESET;

   30    Black
  31    Red
  32    Green
  33    Yellow
  34    Blue
  35    Magenta
  36    Cyan
  37    White

   40    Black
  41    Red
  42    Green
  43    Yellow
  44    Blue
  45    Magenta
  46    Cyan
  47    White