Perlでのメール添付送信のエラー

解決済

質問者：nakisan2011_12
質問日時：2013/03/04 05:43
回答数：2件

PerlでメールにZIPファイルを添付して送信したいです。

http://homepage3.nifty.com/hippo2000/perltips/pe …
http://perltips.twinkle.cc/perl/mail_mime_attach …

上記のサイトを参考に以下のプログラムを組んでみました。
するとエラーメッセージが画像のような感じででてきました。

おそらく、なんか文字コードがおかしいのかもしれないのですが、どこから手をつけていいのかわかりません。

どなたかお助け下さい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

}

}