如何在不使用Perl中的其他库的情况下发送电子邮件附件？

Question

嘿,我想知道是否有办法在不使用MIME :: Lite或任何其他库的情况下将文件(特别是.csv文件)附加到Perl中的邮件消息.

现在,我有一个"邮件程序功能",工作正常,但我不知道如何使其适应附加文件.这是我有的:

open(MAIL, "|/usr/sbin/sendmail -t");
print MAIL "To: cheese\@yahoo.com\n";
print MAIL "From: queso\@what.com\n";
print MAIL "Subject: Attached is $filename\n\n";
print MAIL "$message";
close(MAIL);

我认为这是针对UNIX的.

Answer 1

为什么要编写已经存在的代码？可能有一种更好的方法来解决您的任务,而不是重新创建错误并自己维护更多代码.你在安装模块时遇到问题吗？您也可以使用代码分发第三方模块.

如果你想自己做,你只需要做模块为你做的事情.你可以看一下代码,看看他们做了什么.你这样做.毕竟它是开源的.:)

Answer 2

如果您的问题的一部分是您在共享主机上并且无法安装额外的库,则它们通常可以安装在本地库(例如,〜/ lib)中(并从中使用).有该指令在这里("我没有在系统上安装模块的许可!"下).