使用perl模块ANSIColor后如何将文本返回正常颜色？

Question

我最近发现了非常有趣的perl模块ANSIColor来改变我的文本颜色.基本上,我需要做的就是改变perl stdout文本颜色就像......

print color("red")."My sample text\n";

但是,退出脚本后,我的终端现在只打印红色!是否有一些函数可以将控制台恢复为我可以包含在脚本末尾的原始颜色？

谢谢!

Answer 1

用colored()而不是color().这将在打印字符串后重置着色:

print colored("My sample text\n", "red");