没有perl的彩色输出-英雄云拓展知识分享

我有一个邮件脚本来发送彩色输出，但是我不能在Unix机器上使用它作为 MIME::Lite 模块未安装在其上。

谁能提出一种替换方案来取得所需的色彩输出？

use MIME::Lite;
my (@page_html, @sujet);
my $file = 'rpt.html';
open my $ifh, '<', $file
or die "Cannot open '$file' for reading: $!";
local $/ = "";
my $contents = <$ifh>;
close( $ifh );
my $msg = new MIME::Lite;

输出：

<tr><td>test1</td><td bgcolor=red>NOK</td></tr>
<tr><td>test2</td><td bgcolor=green>OK</td></tr>
<tr><td>test3</td><td bgcolor=green>OK</td></tr>

OK 应当是绿色的

NOK 应当是红色的