MIME::LiteをSMTPで送信すると「ファイル番号が違います。」というリターンが帰って来る。

質問

MIME::Liteパッケージについての質問です。

現在MIME::Liteパッケージを使用してメールを転送する
プログラムを作成しております。

メールは正常に送信できるのですが、MIME::Liteのsendメソッド実行後の"$!"に「ファイル番号が違います。」というメッセージが格納されます。これは何を意味しているのでしょうか？よろしくお願いします。

<コード>
#!/usr/bin/perl

# パッケージ指定
use Net::SMTP;
use Net::POP3;
use MIME::Lite;
use MIME::Base64;
use Jcode;

# メールcfgを読み込み
require "$ARGV[0]";

# メールサーバを指定
$MAILSERVER = 'hoge';

# コンテナを作成
my $msg = MIME::Lite->new(
From => "$FROM",
To => "$TO",
cc => "$CC",
Bcc => "$BCC",
Subject => "$SUBJECT",
Type => 'multipart/mixed'
);

# メッセージを追加
$msg->attach(
Type => 'text/plain; charset="iso-2022-jp"',
Data => "$MESSAGE"
);

# 添付ファイルが指定されているかチェック
if (! $FILEPATH eq "" ) {

# 添付ファイルが存在するかチェック
if (! -e $FILEPATH ) {

print "添付ファイル名:$FILEPATH\n";
exit 67;

} else {

# FILENAMEをGET
$NUM = rindex($FILEPATH,'/');
$FILENAME = substr($FILEPATH, $NUM+1);

# 添付ファイルを追加
$msg->attach(
Type => 'application/octet-stream',
Disposition =>'attachment',
Encoding => 'Base64',
Filename => "$FILENAME",
Path => "$FILEPATH"
);

}

}

# メール送信
$msg->send('smtp', $MAILSERVER);

if (! "$!" eq "" ) {

exit 68;

}

print "メールの送信が完了しました\n";

exit 0;

<環境>
OS:solaris 8
Perl:version 5.005_03

回答No.1

osamuy · ベストアンサー

そもそも、$!を使ってエラー判定してはダメなのでは。

MIME::Liteのマニュアルだと以下のように戻り値で判定してますよ：

$msg->send || die "you DON'T have mail!";

実際には例外（Carp:croak）を返す場合もあるので、evalで囲ったりする必要があると思います。

お礼

以下のように修正しました。

<before>********************************
# メール送信
$msg->send('smtp', $MAILSERVER);

if (! "$!" eq "" ) {

exit 68;

}

print "メールの送信が完了しました\n";

exit 0;

<after>********************************
# メール送信
eval
{

$msg->send('smtp', $MAILSERVER);

};

if ($@)
{

print "$@";
exit 69;

}

print "メールの送信が完了しました\n";

exit 0;

シェルと同じように考えていました。どうもありがとうございました(☆^O^☆)！！