带redirect输出的Perl颜色说明符

我有一个使用Term::ANSIColor的Perl脚本。 它曾经是这样的情况，如果我把输出redirect到一个文件> file.txt文件只包含文本，而不是颜色代码^[[0m

在我的机器Ubuntu 10.04上发生了一些变化，例如redirect的输出包含了这些指定颜色的特殊字符。

任何想法如何解决这个问题？ 我可以在perl脚本中检测输出redirect并跳过颜色部分吗？

谢谢！

为什么我的布尔testing在bash中切换？

如何在BASH中打印整行

分号在Linux命令行上

如何在shell脚本中触发延迟的系统closures？

“sed”命令删除与第一个单词上的确切string匹配的行

用shell脚本（bash）find我系统的ip地址，

如何检测bash shell命令是否遵循逻辑&& AND或|| 要么？

在同一个terminal中同时运行并行多个命令

而读bash数组（不进）

如何在ESCAPE按下时退出python2.x脚本

您可以测试您是否使用IO :: Interactive包以交互方式运行：

use IO::Interactive qw(is_interactive); if (is_interactive()) { # show some fancy color }

damian Conway广泛解释了使用IO :: Interactive（而不是仅仅测试STDIN是否为tt运算符）的基本原理。