具有重定向輸出的Perl顏色說明符

Question

我有一個使用Term::ANSIColor的Perl腳本。 過去，如果我將輸出重定向到文件> file.txt則該文件僅包含文本，而不包含顏色代碼^[[0m

我的機器Ubuntu 10.04上發生了一些變化，以便重定向的輸出包括這些指定顏色的特殊字符。

任何想法如何解決這個問題？ 我可以從perl腳本中檢測輸出重定向並跳過顏色部分嗎？

謝謝！

Answer 1

您可以使用IO :: Interactive包測試是否正在以交互方式運行：

use IO::Interactive qw(is_interactive);

if (is_interactive())
{
    # show some fancy color
}

Damian Conway廣泛地解釋了使用IO :: Interactive的原理（而不只是使用-t運算符測試STDIN是否是tty）。