sandmail プログラム 覚え書

参考：
https://www.stackasterisk.jp/tech/systemConstruction/postfix01_01.jsp
http://www.stackasterisk.jp/tech/program/perl03_03.jsp

#!/usr/bin/perl -w
use strict;
use warnings;

my $from = "mail.from.hoge\@example.com";
my $to = "mail.to.hoge\@example.com";

my $mail = << "MAIL_TEXT";
From: $from
Subject: test mail.
To: $to

This is Test mail.
MAIL_TEXT

eval{
  #open MAIL, "|nkf -jm0| /usr/sbin/sendmail -f $from -t $to" or die "$!";
  open MAIL, "| /usr/sbin/sendmail -f $from -t $to" or die "$!";

  print MAIL $mail;
  print $mail;

  close MAIL;
};if($@){
  print "ERROR : $@\n" or die "$!";
}

1;
__END__

条件：/usr/sbin/sendmail が居る事！