perl 邮件解析乱码 用了MIME::Base64还乱问题解决

my $mail_subject="=?gb2312?B?x006w60h?=";#你好

方法一：

use MIME::Base64;

就可以用decode_base64()函数了

如果还乱码的话可以加上

$dec = decode_base64($subject)

$dec = decode($charset,$dec);

charset就是这里的gb2312

 

方法二：

如果复制过来的字符不完整可能会出现Warning: base64 decoder saw premature EOF!
metamail包比较古老了，现在的发行版上基本没有，需要去网上搜索对应的包来安装。如果不想安装，也可以用perl脚本。

     附上脚本源代码

perl脚本1

#!/usr/bin/perl
# Convert Base64 Or Quoted-printable TO Text
     $a = $ARGV[0];

if ($a=~/=\?[\w-]+\?B\?(.*)\?=$/) {
   use MIME::Base64;
   $a = decode_base64($1);
}

if ($a=~/=\?[\w-]+\?Q\?(.*)\?=$/) {
   use MIME::QuotedPrint;
   $a = decode_qp($1);
}

#open(OUTFILE, ">;/tmp/list.log");
#print OUTFILE $a;
#close(OUTFILE);

print "\n";
print $a;
print "\n";
exit(0);

脚本2

#!/usr/bin/perl
     $sub=$ARGV[0];
     if ($sub=~ /=\?\S+\?\l(\S)\?/) {
       if ($1 =~ /[Qq]/) {
         $sub=decode_qp($sub);
       }
       elsif ($1 =~ /[Bb]/) {
         $sub=decode_base64($sub);
       }
     }
     elsif ($sub=~ /=[a-fA-F0-9][a-fA-F0-9]/) {
       $sub=decode_qp($sub);
     }
     $subject.=$sub;
print "\n";
print $subject;
print "\n";
sub decode_qp {
         my($string) = @_;
         @buffer=split(/\?/,$string);
         $string = $buffer[3] if ($buffer[3] ne "");
         $string =~ s/=([\da-fA-F]{2})/pack("C", hex($1))/ge;
         $string =~ /\?=(.*)/;
         $string =~ tr/_/ /;
         $buffer[4]=~s/^=//;
         $buffer[0]=~s/=$//;
         $string="$buffer[0]$string$buffer[4]";
         return($string);
}

sub decode_base64 {
         my($string) = @_;
         my($string2);
         @buffer=split(/\?/,$string);
         $string = $buffer[3] if ($buffer[3] ne "");
         $string =~ s/=+$//;
         $string =~ tr|A-Za-z0-9+/| -_|;
         while($string =~ /(.{1,60})/gs) {
                 my($string3) = chr(32+length($1)*3/4);
                 $string2 .= unpack("u",$string3 . $1 );
         }
         $buffer[4]=~s/^=//;
         $buffer[0]=~s/=$//;
         $string2="$buffer[0]$string2$buffer[4]";
         return($string2);
}

两个脚本功能是一样的，随便用其中一个都可以

     脚本1调用了perl模块，使用前最好检查一下对应的模块是否安装了
     

[@95.161 ~]# perldoc -l MIME::Base64
/usr/lib/perl5/5.8.5/i386-linux-thread-multi/MIME/Base64.pm

      如果没有安装对应的模块会提示No documentation found for "MIME::Base64"

      可以用下面命令安装

     

perl -MCPAN -e 'install MIME::Base64;'

      如果已经设置了语言环境(export LANG=zh_CN)，则简体中文的信息可以直接显示
      但是有时候邮件是采用其他字符集编码的，如utf-8,big5等，要进行编码转换

    

iconv -f utf8 -t gb13030

以上命令可以组合成脚本，方便查询

方法三：

-----perl 的脚本，需要传参进来，脚本有点糙，哈----

#!/usr/bin/perl
use Encode;
use MIME::Base64;
my $a = $ARGV[0] || ;
if ($a=~/^Subject/) {
$i=1;
while ($i <= $#ARGV){
   $str = "$str".' '." $ARGV[$i]";
   $i++;
};
}elsif ($a=~/^=\?gb2312\?B\?(.*)\?=$/) {
$a = decode_base64($1);
$str=decode("gb2312",$a);
}elsif ($a=~/^=\?utf-8\?B\?(.*)\?=$/) {
use MIME::Base64;
$a = decode_base64($1);
$str=decode("utf8",$a);
}elsif ($a=~/^=\?utf-8\?Q\?(.*)\?=$/) {
use MIME::QuotedPrint;
$str = decode_qp($1);
}elsif ($a=~/^=\?[\w-]+\?Q\?(.*)\?=$/) {
use MIME::QuotedPrint;
$str = decode_qp($1);
}else {
$i=0;
while ($i <= $#ARGV){
   $str = "$str".' '." $ARGV[$i]";
   $i++;
};
};
print "$str";