sendmailのレスポンスコードを取りたいのですが・・・

質問

畏れ入ります。
perlでメール配信を行ったときのレスポンスコードを取得したいのですが
やり方がわかりません。
Net::SMTPを使っているので、
$ret=$smtp->dataend();
などとしてみたのですが、
成功時に1と出るだけでした・・・
PHPであればgetResponse()というメソッドがあるらしいのですが
perlではどうなのでしょう・・？
getResponse()ではエラーになってしまったので
response　とやってみたのですが、エラーにはならないものの
必ず5が帰ってくるだけでした。

perlでメール送信時のレスポンスコードはどうやったら取得できますか？？

とても困っています。
よろしくお願いします。

回答No.1

t-okura · ベストアンサー

Net::Cmd の code() で取得できます。

#!/usr/bin/perl
use strict;
use warnings;
use Net::SMTP;
my $smtp = Net::SMTP->new('mail.example.com') or die;
eval {
$smtp->mail('foo@example.com') or die;
$smtp->to('bar@example.com') or die;
$smtp->data() or die;
$smtp->datasend("To: bar\@example.com\n") or die;
$smtp->datasend("\n") or die;
$smtp->datasend("A simple test message\n") or die;
$smtp->dataend() or die;
$smtp->quit or die;
};
if ( $@ ) {
my $code = $smtp->code();
my $message = $smtp->message();
chomp($message);
print "ERROR: $code $message:\n";
}
exit;

参考URL：

http://search.cpan.org/~gbarr/libnet-1.22/Net/Cmd.pm

お礼

ありがとうございます！

取り合えず存在しないメールアドレスに送ってみたところ

ERROR: 553 5.3.0 <xxx@xxxxx.xxx>... Recipient is not local (2):

と取得できました！

いろいろ試してみようと思います。

本当に助かりました！ありがとうございます