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 isn't exactly deprecated，但十年来有更好的替代方案。看看Email::Stuffer。

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

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

没有Perl的彩色输出

1 个答案: