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

Question

下面的

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

### 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中使用相同的参数知道它。