perl - 如何在 Perl 中将文件内容作为电子邮件发送？

Question

我有一个从一堆 cron 作业创建的日志。我现在的任务是将特定日志(例如错误输出)作为电子邮件发送。从文件中获取内容并将其作为电子邮件发送的最佳方式是什么？

我已经想出了如何在 perl 中发送电子邮件。我只需要弄清楚如何读取文件并将其作为电子邮件的文本。

Answer 1

我用 MIME::Lite ，这是我用于每晚备份的 cron 脚本:

$msg = MIME::Lite->new(
  From    => 'backup-bot@mydomain.com',
  To      => 'test@example.com',
  Bcc     => 'test@example.com',
  Subject => "DB.tgz Nightly MySQL backup!",
  Type    => "text/plain",
  Data    => "Your backup sir.");

$msg->attach(Type=> "application/x-tar",
             Path =>"/var/some/folder/DB_Dump/DB.tgz",
             Filename =>"DB.tgz");

$msg->send;