如何在Perl中处理命令的彩色输出？

Question

I need to execute command from Perl script and print it's output, however command output is colored and Perl prints something like that:

ESC[33m sample text ESC[m 

instead of coloring sample text .

In other words: I want to know how to handle already colored input in Perl (not how to create colored output)

Answer 1

我会与开始colorstrip函数期限:: ANSIColor

Answer 2

uncolor

uncolor takes input from files or standard input and returns in with colors and attributes stripped.