没有 Perl 的彩色输出

Question

我有一个发送彩色输出的邮件脚本，但我不能在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应为红色

Answer 1

这里的彩色输出似乎是一个完整的红鲱鱼(哈哈！您有一个要作为 MIME 电子邮件附件发送的文件。

如果你打算使用Perl，那么你需要在一个可以从CPAN安装模块的环境中。没有CPAN，你就失去了现代Perl的大部分功能。我建议值得进行任何讨论，以便消除Perl编程生涯的主要障碍。

如果你真的无法将模块安装到系统库中，那么你可以将它们安装到你的主目录中，并使用use lib或PERL5LIB来调整Perl库路径。

当你解决了如何使用CPAN模块的问题后，我们可以谈谈你对模块的选择吗？MIME：：Lite 并没有完全弃用，但十多年来已经有更好的替代品了。看看Email：：Stuffer。

但是，如果您确定不讨论 CPAN 模块安装，另一种方法是使用命令行程序mailx发送消息。

$ mailx -a rpt.html [e-mail]