FastNetMon

воскресенье, 28 февраля 2010 г.

Как послать письмо из Perl, используя /usr/bin/mail?

perl -e 'open my $mail, "| mail -s test test\@domain.ru" or die; print $mail "body"; close $mail '

2 комментария :

  1. 1.| use MIME::Lite;
    2.| $msg = MIME::Lite->new (
    3.| From =>'John Doe ',
    4.| To =>'Frank Smith ',
    5.| Subject =>'Test.',
    6.| Data =>"It's just test!!!"
    7.| );
    8.| $msg->send;

    ОтветитьУдалить

Примечание. Отправлять комментарии могут только участники этого блога.