OpenForum RSS: Раздел полезных советов: Отправка почты с вложением из perl с помощью sendmail https://mobile.opennet.dev/openforum/vsluhforumID3/12864.html use MIME::Base64 qw(encode_base64);<br><br>my $sendmail = '/usr/sbin/sendmail';<br>my $to = 'linux@domain1.ru';<br>my $from = 'my@domain2.ru';<br>my $attachment = '/path_to/file.tar.gz';<br><br>my $buf;<br>my $subject = MIME::Base64::encode_base64('Здесь размещаем тему письма.');<br> $subject =~ s/\n//g;<br>my $data;<br> $data = MIME::Base64::encode_base64("&lt;p&gt;Здесь&lt;br&gt;Можно разместить текст сообщения.&lt;br&gt;&lt;/p&gt;");<br>my $boundary = 'simple boundary';<br>open(MAIL, "&#124; $sendmail -t -oi") or die("$!");<br><br>print MAIL &lt;&lt;EOF; <br>To: $email_to <br>From: $email_from <br>Subject: =?UTF-8?B?$subject?= <br>Content-Type: multipart/mixed; boundary="$boundary" <br> <br>This is a multi-part message in MIME format. <br>--$boundary <br>Content-Type: text/html; charset=UTF-8 <br>Content-Transfer-Encoding: base64 <br> <br>$data <br>--$boundary <br>Content-Type: application/octet-stream; name="$attachment" <br>Content-Transfer-Encoding: base64 <br>Content-Disposition: attachment; filename="$attachment" <br> <br>EOF<br><br>open(FILE, "&lt;$attachment") or die "$!";<br><br>while (read(FILE, Отправка почты с вложением из perl с помощью sendmail (Валентин Петрович Алексеев) https://mobile.opennet.dev/openforum/vsluhforumID3/12864.html#11 Sat, 02 Jul 2011 09:39:39 GMT как "исправить ошибку соркета"? Письма не отправляются. Я, кстати, мало того, что новичок, да ещё руки не работают (если надо открывать блок). я в панике<br> Отправка почты с вложением из perl с помощью sendmail (zerra) https://mobile.opennet.dev/openforum/vsluhforumID3/12864.html#10 Wed, 19 May 2010 11:14:03 GMT пришло пустое письмо.. с аттачем ) правда аттач 0 байт (<br> Ж*) (Serg) https://mobile.opennet.dev/openforum/vsluhforumID3/12864.html#9 Mon, 25 Jan 2010 10:18:31 GMT Подскажите пожалуйста, что не так?<br><br> line 3: recode: command not found<br><br> Отправка почты с вложением из perl с помощью sendmail (asda) https://mobile.opennet.dev/openforum/vsluhforumID3/12864.html#8 Thu, 06 Aug 2009 00:47:12 GMT asdasdasdsad<br> Отправка почты с вложением из perl с помощью sendmail (yaromyr) https://mobile.opennet.dev/openforum/vsluhforumID3/12864.html#7 Sun, 30 Nov 2008 17:32:08 GMT Нужно внести некоторые поправки в текст программы<br><br>my $email_to = 'linux@domain1.ru';<br>my $email_from = 'my@domain2.ru';<br><br>Неправильно использованн&#1110; имена переменн&#1110;х!<br> Ж*) (alpha_Qu4z4r) https://mobile.opennet.dev/openforum/vsluhforumID3/12864.html#5 Wed, 22 Aug 2007 09:20:08 GMT syntax error: unexpected end of file<br> что-то там напутано в башевом скрипте<br> Отправка почты с вложением из perl с помощью sendmail (alpha_Qu4z4r) https://mobile.opennet.dev/openforum/vsluhforumID3/12864.html#4 Wed, 22 Aug 2007 09:18:44 GMT syntax error: unexpected end of file<br><br>=&#124; что-то там напутано<br> Отправка почты с вложением из perl с помощью sendmail (Остров) https://mobile.opennet.dev/openforum/vsluhforumID3/12864.html#3 Tue, 13 Dec 2005 11:13:41 GMT Казалось бы, и при чём тут перл?.. :)<br><br>Да притом, что надо пользоваться модулями, а не городить огород. Хотя админам простительно - они жуткие консерваторы :))) Отправка почты с вложением из perl с помощью sendmail (dsl) https://mobile.opennet.dev/openforum/vsluhforumID3/12864.html#2 Mon, 05 Dec 2005 02:03:11 GMT Перл при том что иногда нужен перл, за bash тоже спасибо