Perl 印出顏色文字

在寫 Perl Script 時通常我會將錯誤訊息用紅色顯示, Warning 用黃色, 執行正確用錄色, 看似沒什麼用, 但其實很方便, 不用細心看輸出內容就可以知道有沒有錯誤。在另一篇文章 Shell Script 輸出顏色文字 介紹了在 Shell Script 輸出顏色文字的方法, 但這個方法並不好記, 因為顏色碼是數字, 通常用過就會忘記。

Perl 要印出顏色文字同樣可以用上面提及的顏色碼, 但另一個更方便的做法是用內建的 ANSIColor 模組, 用 ANSIColor 的好處是不用記顏色碼, 直接用顏色的英文名稱即可, 例如 red, green, blue 等, 用法如下:

上面會印出紅色的 “Stop!” 及錄色的 “Go!”, 而要注意的是, 跟 Shell Script 的做法一樣, 在轉換顏色後, 要手動轉回預設顏色, 上面是用 RESET 將文字顏色變回預設值。

除了變更輸出文字的顏色外, 也可以改變文字的底色, 例如:

上面會印出紅色底色, 及預設顏色的 “Hello”。




Leave a Reply