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;
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;
if ($sub=~ /=\?\S+\?\l(\S)\?/) {
if ($1 =~ //) {
$sub=decode_qp($sub);
}
elsif ($1 =~ //) {
$sub=decode_base64($sub);
}
}
elsif ($sub=~ /=/) {
$sub=decode_qp($sub);
}
$subject.=$sub;
print "\n";
print $subject;
print "\n";
sub decode_qp {
my($string) = @_;
@buffer=split(/\?/,$string);
$string = $buffer if ($buffer ne "");
$string =~ s/=([\da-fA-F]{2})/pack("C", hex($1))/ge;
$string =~ /\?=(.*)/;
$string =~ tr/_/ /;
$buffer=~s/^=//;
$buffer=~s/=$//;
$string="$buffer$string$buffer";
return($string);
}
sub decode_base64 {
my($string) = @_;
my($string2);
@buffer=split(/\?/,$string);
$string = $buffer if ($buffer 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=~s/^=//;
$buffer=~s/=$//;
$string2="$buffer$string2$buffer";
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 || ;
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";
页:
[1]