如何用Perl实现终端彩色输出、重定向至文件时无彩色？

要实现这个需求，核心是检测标准输出是否为交互式终端，并据此决定是否启用ANSI颜色序列。Perl可以通过-t STDOUT判断输出目标是否是终端，结合Term::ANSIColor的内置变量就能轻松实现。

改动最小的实现方式 #

基于你原有的代码，只需添加几行判断逻辑即可：

#!/usr/bin/perl -w

use strict;
use Term::ANSIColor qw(:constants);

# 判断是否输出到终端，同时尊重NO_COLOR环境变量（可选）
my $use_color = (-t STDOUT) && !exists $ENV{NO_COLOR};
# 非终端时禁用所有颜色序列
$Term::ANSIColor::DISABLE_COLORS = !$use_color;

$Term::ANSIColor::AUTORESET = 1;
print "Do you wish to operate in ";
print BOLD GREEN "(s)";
print "cript mode or in ";
print BOLD RED "(l)";
print "ive mode ? \n";

原理说明 #

1. -t STDOUT：Perl的文件测试操作符，当STDOUT连接到交互式终端时返回真，重定向到文件/管道时返回假。
2. $Term::ANSIColor::DISABLE_COLORS：该变量设为真时，所有颜色常量（如BOLD、GREEN）都会被替换为空字符串，输出时自然不会包含ANSI颜色序列。
3. NO_COLOR环境变量：这是行业通用惯例，用户设置该变量后无论是否在终端，都应禁用颜色，添加这个判断能让程序更符合用户预期。

另一种灵活实现方式（手动控制颜色） #

如果你想更精细地控制颜色的启用，也可以通过自定义函数来包裹颜色逻辑：

#!/usr/bin/perl -w

use strict;
use Term::ANSIColor qw(color);

my $use_color = (-t STDOUT) && !exists $ENV{NO_COLOR};

# 自定义颜色函数，非终端时返回空
sub colorize {
    return '' unless $use_color;
    return color(join(' ', @_));
}

print "Do you wish to operate in ";
print colorize('bold green') . "(s)" . colorize('reset');
print "cript mode or in ";
print colorize('bold red') . "(l)" . colorize('reset');
print "ive mode ? \n";

这种方式不需要依赖AUTORESET，适合需要更复杂颜色组合的场景。

内容的提问来源于stack exchange，提问作者Jennifer M.