Perl 更改輸出文字顏色

Perl 中想修改輸出的文字顏色有以下方式可供參考。

在程式開始加入以下參數：

 use Term::ANSIColor   qw(:constants); 

這行是確保每次輸出後重新RESET回原本顏色。

 $Term::ANSIColor::AUTORESET=1; 

使用這種方式時，可直接把顏色屬性放在要輸出的文字前面如下：

print  RED "This text is in RED.\n";

顏色屬性有以下：

CLEAR, RESET, BOLD, DARK, UNDERLINE, UNDERSCORE, BLINK, REVERSE, CONCEALED, BLACK, RED, GREEN, YELLOW, BLUE, MAGENTA, CYAN, WHITE

以下為字體的背景顏色，例如：：ON_RED,預設則會產生如   ON_RED 的效果。

ON_BLACK, ON_RED, ON_GREEN, ON_YELLOW, ON_BLUE, ON_MAGENTA, ON_CYAN, ON_WHITE

如果想要紅色背景藍色的字，只要再加參數在後面即可。

 print  ON_RED , BLUE "TEST\n";