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