Perlでのメール添付送信のエラー
PerlでメールにZIPファイルを添付して送信したいです。
http://homepage3.nifty.com/hippo2000/perltips/perlmail.htm#1.2
http://perltips.twinkle.cc/perl/mail_mime_attached_file.php
上記のサイトを参考に以下のプログラムを組んでみました。
するとエラーメッセージが画像のような感じででてきました。
おそらく、なんか文字コードがおかしいのかもしれないのですが、どこから手をつけていいのかわかりません。
どなたかお助け下さいm(__)m
前回も別の問題で助けていただいたのですが、文字コードの問題でした。他の部分は全くひっかからないのに、この部分で４０時間ほど悩んでおります・゜・(ノД`;)・゜・
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
sub mail_push {
# サーバー、アカウント、パスワード、ポート、送信元アドレス、送信先アドレス、題名、本文、送るべきファイル１（空の場合は無視）、送るべきファイル２（空の場合は無視）
my ( $mailhost, $mail_username, $mail_password, $mailport, $from_mail, $to_mail, $subject, $message, $file1, $file2 ) = @_;
# 正しいメールの形なのか調べる
if ( $to_mail eq '' ) {
print "送り先のメールアドレスが空のようです\n"; # ERR
} elsif ( $to_mail =~ /^([a-zA-Z0-9\.\-\/_]{1,})@([a-zA-Z0-9\.\-\/_]{1,})\.([a-zA-Z0-9\.\-\/_]{1,})$/ ) {
# 実際に送る
my $smtp = Net::SMTP->new($mailhost, Port => $mailport);
$smtp->auth($mail_username, $mail_password);
$smtp->mail($from_mail);
$smtp->to($to_mail);
$smtp->data();
my $mime = MIME::Entity->build(
Type => 'multipart/related',
From => $from_mail,
To => $to_mail,
Subject => $subject,
Type => 'text/plain;charset="iso-2022-jp"',
Data => $message,
Encoding => "7bit");
# エラーがでてくる箇所
$mime->attach(
Path => 'c:/buromaga1.jpg',
Type => 'Application/octet-stream',
Encoding => 'Base64',);
$smtp->datasend($mime->stringify);# ERR
$smtp->dataend();# ERR
# SMTP終了
$smtp->quit;
} else {
print "送り先が正しいメールの形式ではありません\n"; # ERR
}
}
お礼
どうもありがとうございました。 ＞「データを独立させることで、関連するアプリケーションからデータを分離する」 通常はデ－タを分離するのでしょうか。また分離しない場合もあるのでしょうか。