Как Perl скриптом отправить письмо с аттачем (attach)?
Чтобы присоединить файл к письму, можно воспользоваться, например, таким Perl скриптом:
#!/usr/local/bin/perl
use MIME::Entity;
my $letter = MIME::Entity->build(From => "mail\@host.ru",
To => "mail\@host.ru",
Subject => "test letter",
Data => "Some text...");
$letter->attach(Path => "./archive.zip",
Type => "application/zip",
Encoding => "base64");
open (MAIL, "|/usr/sbin/sendmail -f mail\@host.ru -t")
|| die "Cannot open sendmail - $|";
$letter->print(\*MAIL);
close MAIL;
Вместо mail\@host.ru укажите Ваш e-mail (не забудьте "экранировать" "@" символом "\"). ./archive.zip - путь к файлу, который Вы отправляете. В данном случае мы отправляем архив archive.zip из той же директории, в которой выполняется скрипт.
скопировать в блог