Perl メール文字化け

質問

#メール本体設定
my $start = '～ホームページより以下の内容を受け取りました～';
my $Name =$q->param('Name');
if($Name eq ""){
print "Content-type: text/plain; charset=Shift_JIS\n\n";
print "名前が入力されていません。\n\nブラウザの戻るボタンで戻ってください。";
exit(1);
}
my $Sex =$q->param('q1');
my $Age =$q->param('q2');
my $ie =$q->param('ie');
my $Tell =$q->param('Tell');
my $body = $q->param('body');
if($body eq ""){
print "Content-type: text/plain; charset=Shift_JIS\n\n";
print "本文が入力されていません。\n\nブラウザの戻るボタンで戻ってください。";
exit(1);
}
#my $subject = $q->param('subject');
my $End = '～～～～～～～～～～～～～～～～～～～～～';
#メール送信オブジェクト設定
my $smtp = Net::SMTP->new('n-doboku.jp');
if ( !$smtp ) {
print "メールサーバーにアクセスできません！";
exit;
}
#メール文字コード変換
Encode::from_to($start, 'shiftjis', 'iso-2022-jp');
Encode::from_to($Name, 'utf8', 'shiftjis');
Encode::from_to($Sex, 'utf8', 'shiftjis');
Encode::from_to($Age, 'utf8', 'shiftjis');
Encode::from_to($ie, 'utf8', 'shiftjis');
Encode::from_to($Tell, 'utf8', 'shiftjis');
Encode::from_to($body, 'utf8', 'shiftjis');
Encode::from_to($End, 'shiftjis', 'iso-2022-jp');
#メール送信
$smtp->mail($from);
$smtp->to($mailto);
$smtp->to($mailcc);
$smtp->data();
$smtp->datasend($header);
$smtp->datasend("$start\n\n");
$smtp->datasend("名　　　前 : $Name\n\n");
$smtp->datasend("性　　　別 : $Sex\n\n");
$smtp->datasend("年　　　齢 : $Age\n\n");
$smtp->datasend("住　　　所 : $ie\n\n");
$smtp->datasend("電話番号 : $Tell\n\n");
$smtp->datasend("本　　　文 : $body\n\n");
$smtp->datasend("$End\n\n");
$smtp->dataend();
$smtp->quit;

現在、
SMTPを使用しメール送信を作成している最中です。
やっと、パソコンからパソコンへメール送信では文字化けしなくなったのですが
まず
(1)パソコンでも異字体などは文字化けしてしまう（髙や﨑等）
おそらく「Content-Transfer-Encoding: 8bit」これを使うのですが、使いかたがわからないです・・・
(2)スマホにメール送信したときはすべて文字化けしてしまうのですが、
スマホでの文字コードとはなんなのでしょうか・・・？
また、一回utf8に変換しているのですが、この場合どうするのでしょうか・・・？

回答No.4

wormhole · ベストアンサー

>Encode::from_to($Name 'cp932', 'utf-8',);

意味わかって使っていますか？
$Nameに文字コードCP932の文字列が入ってるから、それを文字コードUTF-8に変換して$Nameにいれてという意味ですよ？
元の$Nameに入っている文字列の文字コードは何なのですか？
CP932以外でしたら嘘を教えてるんだからおかしな変換されても当然です。

お礼

ありがとうございました。

結果的には・・
HTML（シフトJIS）だったらPerlでシフトJISからUTF-8に変換して送る
ということですよね・・

補足

そういうことですか・・・
まだしっかり理解ができておりません；；

元々はUTF8だと思うので

Encode::from_to($Name, 'utf-8', 'cp932');
ということですね・・・

これではパソコンでは文字化けしません！
しかし、スマホでは文字化けします；；
これはスマホがcp932が対応していないということでしょうか・・・？

回答No.3

superside0

$headerで　UTF-8　を指定しているのに
本文を　、'cp932'(SJIS)にしているのではあれば、文字化けするのは　当然です。
（PCで文字化けしなくなったのは、たまたまそのメーラーが　気を利かしてくれだだけでしょう）

ヘッダでの宣言と　実体を一致させれば(1)は　解決します。

お礼

ありがとうございます。

補足

ということは
Content-Type: text/plain; charset = "utf8"
↓
Content-Type: text/plain; charset = "cp932"

ということでしょうか？
これでも文字化けはしないです・・・

Content-Type: text/plain; charset = "utf8"
これのまま
Encode::from_to($Name 'cp932', 'utf-8',);
こうすると文字化けします。。。

ただやはりどちらにしてもスマホで文字化けします・・・

まだ、完全に文字コード変換について理解できてなくすみません；；

回答No.2

superside0

(2)
> Encode::from_to($start, 'shiftjis', 'iso-2022-jp');
> Encode::from_to($Name, 'utf8', 'shiftjis');
これでは、
$startを sjisからiso-2022-jpへ変換しているのに、　$Nameは　utf8からSJISへ変換となっていて
本文中にiso-2020-jp とSJISを混在させてしまっています。
（ソース内で宣言した変数と、POSTされた変数で　変換元のコードが異なるのは　問題ないですが、
変換先が異なるのが問題）
なのでまずは　本文で使う変数のコードを統一しましょう。

なにに統一するかというと、$headerの中身の定義が上記にはないですが、
省略されているとして、その中にコードの宣言があるはずです。
例えば
$header .= "Mime-Version: 1.0\n";
$header .= "Content-type: text/plain; charset=iso-2022-jp\n";
$header .= "～\n\n";
として charseをiso-2020-jpと宣言しているならば、本文で使う変数のEncode::from_to変換先を
全て　'iso-2022-jp'にします。

(1)
ただし、iso-2022-jp を使うと、髙や﨑を送ることができません。
（Outlookとかの一部のメーラーは　例外的に表示してくれますが）
よって、POSTデータ(HTML)も、$headerでのメールのコード宣言も、 Encode::from_toでの変換先も 全部UTF-8にしてしまうのが確実でしょう。
（ついでに本文をencode_base64して、メールヘッダでそれを宣言)

お礼

ありがとうございます。

補足

ご回答ありがとうございます。

$startは変換をせずそのまま送ることにしました。
それでパソコンでは文字化けはしなくはなりました。

HTMLフォームから受け取ったデータに関しては
そのまま送ると文字化けするみたいなので
Encode::from_to($Name, 'utf-8', 'cp932');
このように記載するとパソコンでは文字化けしなくはなったのですが、

$startはそのまま送る
$NameはEncode::from_to($Name, 'utf-8', 'cp932'); で送る

だとスマホでは文字化けしてしまいます。

$header は下記のようになってます。
my $header = <<"MAILHEADER";
From: $from
To: $mailto
CC: $mailcc
Subject: $subject
Mime-Version: 1.0
Content-Type: text/plain; charset = "utf8"
Content-Transfer-Encoding: 8bit
MAILHEADER

ただこれが効いているのかがわからないです。。。

回答No.1

muuming2001

髙ってShift_JISには存在していない文字では？

お礼

ありがとうございます。

補足

回答ありがとうございます。

＞髙ってShift_JISには存在していない文字では？
だと思い
my $Name =$q->param('Name');
Encode::from_to($Name, 'utf8', 'shiftjis');
例えば
ホームページの名前入力欄からのデータの受け渡しが上記のコードのName
なのですが、
これはutf8に変換するという形にしたつもりなのですが・・・