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