Perl 中的彩色终端输出

Question

当终端支持颜色时，我想以彩色打印一些输出到终端，否则打印它。另外，当程序不以交互方式运行时，我不希望有颜色，例如当管道输入 grep 时。

在 Perl 中最好的方法是什么？我希望有一些类似这样的 API：

printColorMaybe( RED, "Hi", PLAIN, " mom!\n" );

实施将在不适当时忽略颜色代码。

Answer 1

Term::ANSIColor 生成彩色输出。

-t STDOUT 测试标准输出是否打开到终端。

$ENV{ANSI_COLORS_DISABLED} 动态禁用Term::ANSIColor。

use Term::ANSIColor;
$ENV{ANSI_COLORS_DISABLED}++ unless -t STDOUT;
print colored("Hi","red")," mom!\n";