Назад | Перейти на главную страницу

Mail :: Sendmail с вложениями и встраивание Perl в сценарий Bash

1> Я хочу встроить Perl-скрипт в BASH-скрипт, а Сообщение следует читать из файла message.txt. Как это реализовать?

  use Mail::Sendmail;

  %mail = ( To      => 'you@there.com',
            From    => 'me@here.com',
            Message => "This is a very short message"
           );

  sendmail(%mail) or die $Mail::Sendmail::error;

  print "OK. Log says:\n", $Mail::Sendmail::log;

2> Как прикрепить файлы журнала через Perl-скрипт?

Если вы собираетесь делать это в сценарии bash, то, возможно, вы обойдетесь без Perl. В вашем сценарии bash есть что-то вроде:

mutt -F $HOME/.muttrc.me -x -a attachment.file -- you@there.com < message.txt

Это требует дворняга и вы можете настроить .muttrc файл (в данном случае $ HOME / .muttrc.me) для управления From: заголовок:

my_hdr From: "Me Here" <me@here.com>
my_hdr Reply-To: me@here.com

То, как сказал @adamo, отлично работает, вот еще один, возможно, более эффективный, если получателей много:

cat message.txt | mail -a 'From: me@here.com' -a 'To: you@there.com' -s 'Subject for the message' you@there.com