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";