perでメールが送信出来ない場合の確認方法

perlで下記のような感じでレンタルサーバーで動かしたところ送信が出来ませんでした。
その場合に、レンタルサーバーなのでsendmailのログも見れないで困っていますので、
原因の確認方法が解ればご教示頂ければ有難いです。

my ( $SENDMAIL ) = '/usr/sbin/sendmail';
open(MAIL, "| $SENDMAIL -t ");
print MAIL "From: [e-mail]\n";
print MAIL "To: [e-mail]\n";
print MAIL "Subject: test\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "Content-Type: text/plain; charset=\"ISO-2022-JP\"\n";
print MAIL "\n";
print MAIL "test_letter\n";

No.1 回答者： t-okura 回答日時： 2012/03/04 12:29

まずは

use strict;
use warnings;
をつけて、手元の環境でスクリプトの文法チェックを行うことをお勧めします。

また、
open(MAIL, "| $SENDMAIL -t ");
を
open(MAIL, ">", "debug.txt");
のように変えて、sendmail にどんな文字列が渡されているかを確認するのも役立つと思います。

この回答へのお礼

有難うございます。

use strict;
use warnings;

を入れたところ

print MAIL "From: [e-mail]\n";

の誤りは解りました。

ただ…
送れなかったので、たぶん、サーバーの問題の気がしてきました。

お礼日時：2012/03/04 21:24

No.2 回答者： hujitomo 回答日時： 2012/03/05 21:54

確認の方法ではありませんが、もしもサンプルのようなソースであると仮定するなら送れないのは当然なのでは？

＞print MAIL "From: [e-mail]\n";
＞print MAIL "To: [e-mail]\n";

この2行で使用している " が原因ではないでしょうか？

＞print MAIL 'From: [e-mail]\n';
＞print MAIL 'To: [e-mail]\n';

このようにする、もしくはメールアドレスをスカラに格納する必要があると思います。

No.3 回答者： t-okura 回答日時： 2012/03/06 21:13

> ただ…

> 送れなかったので、たぶん、サーバーの問題の気がしてきました。

切り分けのため、メールを送るだけの CGI でテストしてみたらどうでしょうか。例えば、下記のようなものです。

#!/bin/sh
echo "Content-type: text/plain\n\n"
/usr/sbin/sendmail -v -t [e-mail] <<__EOM__
From: [e-mail]
To: [e-mail]
Subject: Hello

Hi. Hello World.

__EOM__
exit

[e-mail] は、まっとうなメールアドレスに変えてください。

No.4 回答者： aki04 回答日時： 2012/03/16 16:11

私もPerl初心者なので見当違いだったらすみません。

eval {
　　# 処理
};
if ($@) {　　　　　# eval 内でエラーがあったら
　　print $@;　　# 出力
}

とかでエラーの内容が見れたりしないでしょうか。
そういうことじゃないのかな…