sendmailでPerlからメールを送信する

もっとも一般的なメールを送信する方法ではないかと思われる方法です。sendmailというソフトを使いPerlからメールを送信します。

Perlからメールを送る場合、一般的にsendmailというソフトを使って送信します。普通のメールソフトの場合、SMTPサーバというサーバにメールを送りつけて、そこからメールが飛んでいくのですが、Perlの場合はちょっと違うんですね。んで、sendmailというソフトを使う際は「sendmailのパス」と呼ばれるものが必要になります。

一般的には以下の中のどれか。
/usr/bin/sendmail
/usr/sbin/sendmail
/usr/lib/sendmail
/usr/local/sbin/sendmail
/usr/local/lib/sendmail

使っているサーバの種類によるので、わからない場合は使っているサーバ屋さんに聞いてみよう。
サンプルソースを元にperlからメールを送ってみよう～！

※必ず送信元と宛先のメールアドレスを変更してから試してね！！

サンプルソース

#!/usr/bin/perl #文字コード変換モジュールを読み込む use Jcode; #sendmailのパス $sendmail = '/usr/sbin/sendmail'; #メールの送信元 $mailfrom = 'my@example.jp'; #メールの宛先 $mailto = 'you@example.jp'; #メールの件名 $subject = 'メールの件名を書くよ'; #メールの本文 $body = <<"EOF"; メールの本文はこの通りさ。 ここに文字を入れるとそれが本文になるのさ。 ただ、＠マークなどはエスケープしないと文字化けしちゃうぞ。 EOF #件名をJISコードに変換 Jcode::convert(\$subject,'jis'); #本文をJISコードに変換 Jcode::convert(\$body,'jis'); #下のほうで定義されているsendmail関数を呼び出す &sendmail($mailto,$mailfrom,$subject,$body); #ブラウザに成功したっていう文字を返す print "Content-type: text/html\n\n"; print "sendmail successful"; exit; sub sendmail {     my($mailto,$mailfrom,$subject,$body) = @_;     open(MAIL,"| $sendmail -f $mailfrom -t");         print MAIL "To: $mailto\n";         print MAIL "Errors-To: $mailto\n";         print MAIL "From: $mailfrom\n";         print MAIL "Subject: $subject\n";         print MAIL "MIME-Version:1.0\n";         print MAIL "Content-type:text/plain; charset=ISO-2022-JP\n";         print MAIL "Content-Transfer-Encoding:7bit\n";         print MAIL "X-Mailer:Web Mail Delivery System\n\n";         print MAIL "$body\n";     close(MAIL); }

実行結果

サンプルソースダウンロード

[ 更新:2007-04-11 20:28:08 ]

次の記事：：Perlで言うところの変数って何？ >>