+ -
当前位置:首页 → 问答吧 → Perl Sendmail乱码问题

Perl Sendmail乱码问题

时间:2011-01-17

来源:互联网

本帖最后由 jiannma 于 2011-01-17 17:19 编辑

请教大虾们一个问题:

我用perl Mail::Sendmail 模块 发信(subject)基本上没问题。
但message是乱码,默认是以UTF-8, 现在想以gb2321编码,不知如何解决?  


代码如下:
  1. #!/usr/bin/perl


  2. use strict;
  3. use Mail::Sendmail;
  4. use MIME::Base64;

  5. my $content = `cat tmp.txt`;

  6. print "Sending an email .....";

  7. my %mail = (
  8.                       To            => "[email protected]",
  9.                       From         =>  "[email protected]",
  10.                        Subject       => "test",
  11.                        content-type   => "text/plain",
  12.                        content-transfer-encoding     => 'base64',
  13.                         Message     => $content,
  14.                           smtp       => "xx.xx.xx",
  15. );


  16. if  (sendmail %mail) { print "Mail send ok!\n";}

  17. else {print "Error : $mail::Sendmail::errror\n"}
复制代码
tmp.txt里面是中文内容。。。

我尝试过把里面的"base64“该成”gb2321" ,但是还是不行。。。

作者: jiannma   发布时间: 2011-01-17

此编码非彼编码

作者: yiten   发布时间: 2011-01-17