如何使用相同的Perl语句将彩色文本打印到终端，但将非彩色文本打印到文件中？

问：

我想让 Perl 程序将彩色文本打印到终端，但是当输出重定向到文件时 - 应该在没有终端序列的情况下打印相同的文本。

令我惊讶的是，像下面这样的Perl打印语句不会自动执行此操作。

#!/usr/bin/perl -w

use Term::ANSIColor qw(:constants);
$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";

如何在Perl中像这样打印？

（C++ 库 rang 可以智能打印，就像我上面描述的那样。