Я написал перл скрипт который шлет почту из командной стройки. Вот он:

  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;

  Мне нужно чтобы она умела слать приаттаченные файлы. Подскажите как это сделать

• RE: Как приаттачить файл на перле,Vadim, 22:57 , 09-Янв-02

>Я написал перл скрипт который шлет
>почту из командной стройки. Вот
>он:
>
Как вариант для постоянного аттача/текста в сообщение
$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);
}