没有Perl的彩色输出

时间:2017-07-06 14:17:43

标签: 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应为红色

1 个答案:

答案 0 :(得分:1)

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

如果您要使用Perl,那么您需要处于可以从CPAN安装模块的环境中。没有CPAN,你就会失去现代Perl的大部分功能。我建议你有必要进行任何讨论,以便将你的主要障碍移除到你的Perl编程生涯中。

如果您确实无法将模块安装到系统库中,则可以将它们安装到主目录中,并使用use lib或PERL5LIB根据需要调整Perl库路径。

当您解决了如何使用CPAN模块的问题时,我们可以谈谈您选择的模块吗? MIME :: Lite isn't exactly deprecated,但十年来有更好的替代方案。看看Email::Stuffer

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

$ mailx -a rpt.html someone@example.com