форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Как приаттачить файл на перле"
Сообщение от Sergei on 09-Янв-02, 21:56  (MSK)
Я написал перл скрипт который шлет почту из командной стройки. Вот он:   open MAIL, "| /usr/bin/sendmail -n -t -oi" or die "Can't run sendmail\n";   print MAIL "From: mail\@mail.com\n";   print MAIL "To: $ARGV[0]";   print MAIL "Subject: \n";   print MAIL "MIME-Version: 1.0\n";   print MAIL "Content-type: text/plain; charset=koi8-r\n";   print MAIL "Content-transfer-encoding: 8bit\n\n";   print MAIL "@messaga\n";   close MAIL;   Мне нужно чтобы она умела слать приаттаченные файлы. Подскажите как это сделать
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "RE: Как приаттачить файл на перле"
Сообщение от Vadim on 09-Янв-02, 22:57  (MSK)
>Я написал перл скрипт который шлет >почту из командной стройки. Вот >он: > Как вариант для постоянного аттача/текста в сообщение $data = "/путь/к/attach.txt"; print MAIL "FROM: $recipient\n"; print MAIL "TO: $FORM{'email'}\n"; print MAIL "Subject: $subject\n\n"; open (INF,"$data") or dienice ("Can't open attach.txt:$!"); @ary = <INF>; close(INF); foreach $line (@ary) { print MAIL "$line"; } close(MAIL); }
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.