Perl 文字コードについて
From: $from
To: $mailto
CC: $mailcc
Subject: $subject
Mime-Version: 1.0
Content-type: text/plain;charset=\"UTF-8\"
Content-Transfer-Encoding: 8bit
この時点で、UTF-8を指定しました。
use Encode;
use Encode::Guess;
Encode::Guess->set_suspects( qw/ euc-jp shiftjis 7bit-jis / );
$name = encode('UTF-8', decode('Guess', $name));
で本文を、UTF-8に変換して送るようなコードを書きました。
これで一応、パソコン、スマホ共に「本文」は文字化けせず送れるのですが、
今度、別の問題が発生してしまったようで、
「件名」が文字化けしてしまうようになりました。
$subject = encode('UTF-8', decode('cp932', $subject));
件名も、本文と同じように変換コードをしてみたところ、パソコンでは文字化けしませんでしたが「件名」で文字化けしてしまいます。
調べたところ本文と件名では、内容が違い
MIMEエンコードを使用するとのことだったのですが、
実際どのように使うのかわからないです。
$subject = encode('ISO-2022-JP', decode('cp932', $subject));
encode('MIME-Header-ISO_2022_JP', $subject)
このように記述するとスマホでは文字化けしないのですが
パソコンで文字化けしてしまいます。
そこで、件名がパソコンとスマホで文字化けしないようにし、本文はUTF-8で送るようにするにはどのようにすればいいのでしょうか？
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_1_thumbnail_img_sm.png)
