perl - 如何在不使用 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

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

如果你想自己做，你只需要做模块为你做的同样的事情。你可以只看代码看看他们做了什么。你就那样做。毕竟是开源的。 :)