Perl：将 zip 作为 Base64 编码附件发送会损坏存档

Question

我正在使用 perl 组装多部分 MIME 电子邮件，然后在 Windows 环境中使用 sendmail 发送该电子邮件。我知道，这并不理想。

其中一部分是收集文件，将其压缩，然后将 zip 文件编码为 Base64 并将其作为附件写入电子邮件中。我的问题是，每当我发送超过一定大小的文件（我不知道具体大小；在 20 KB 到 2 MB 之间）时，zip 文件最终会在收到时损坏。 （当在 WinRAR 中打开时，它会抱怨“存档意外结束”，并且 CRC 值全部为零，如果这是任何线索的话）。

我怀疑我可能只是将其写入电子邮件，从而导致垃圾或重复内容进入，但我看不到它发生在哪里。这是我用来进行读取/编码/写入的片段；它使用 MIME::Base64，并且显然有一个开放的 Sendmail 句柄。

    open(FILE, "c:\\temp\\$uid.zip") or die "$!";
    while (read(FILE, $buffer, 60*57)) 
    {
        printf SENDMAIL encode_base64($buffer);
    }  

即使我在没有任何缓冲的情况下读入它（我当然应该有足够的内存来容纳微不足道的 2mb 文件），我仍然最终收到一个损坏的 zip 文件。尺寸绝对是一个令人困惑的因素，但我正在努力找出原因或如何补救。

Answer 1

我认为在 Windows 上您需要 binmode 您的文件

open(FILE, "c:\\temp\\$uid.zip") or die "$!";
binmode FILE;
while (read(FILE, $buffer, 60*57)) 
{
    printf SENDMAIL encode_base64($buffer);
}  

另外，使用 MIME::Lite 用于发送电子邮件。