perl - 使用 perl mime::entity 附加文件？

Question

下面显示了如何将文件添加到使用 mime::entity 构建的电子邮件中，我的问题不是指定文件的路径，有没有办法通过包含文件上下文的变量添加它？

### Attachment #2: a GIF file:
$top->attach(Path        => "./docs/mime-sm.gif",
             Type        => "image/gif",
             Encoding    => "base64");

Answer 1

是的你可以。您需要删除Path参数并改为使用Data，例如

### Attachment #2: a GIF file:
$top->attach(Data        => $my_gif_contents,
             Type        => "image/gif",
             Encoding    => "base64");

Data有点埋没在MIME::Entity文档中，我必须承认！我只知道在MIME::Lite.