perl 中如何处理发邮件碰到的 日文问题
现在有一段采用perl语言写的perl程序,用来发送邮件
但是,现在在收到的邮件中的内容从日文变成了乱码
其中,邮件正文的参数是从表单中获得
我把字符集从UTF-8改成ISO-2020-JP,也不行
这个问题如何处理
大家处处建议
部分代码如下
#open (MAIL,"|$SENDMAIL") || die "Can't Send Email from this server.";
open(MAIL, "| iconv -f UTF-8 -t PCK | $SENDMAIL") || die "Can't Send Email from this server.";
print MAIL "To: $sendto\n";
print MAIL "From: $sendfrom\n";
print MAIL "Subject: Email from Campaign\n";
print MAIL "\n\n";
print MAIL "リクエスト: $FORM{'request'}\n";
print MAIL "希望製品: $FORM{'products_1'}\n";
print MAIL "$FORM{'products_2'}\n";
print MAIL "$FORM{'products_3'}\n";
print MAIL "お名前: $FORM{'name'}\n";
print MAIL "ふりがな: $FORM{'furi'}\n";
print MAIL "E-mail アドレス: $FORM{'email'}\n";
print MAIL "病院名: $FORM{'hospital'}\n";
print MAIL "都道府県: $FORM{'ken'}\n";
print MAIL "住所: $FORM{'address'}\n";
print MAIL "電話番号: $FORM{'phone'}\n";
print MAIL "経路: $FORM{'root'}\n";
print MAIL "コメント: $FORM{'comments'}\n";
close MAIL;