如何解码--已解决

兰花仙子

MIME::Head

log2002

sub subject_decode{
        use MIME::Base64;
        use MIME:uotedPrint;
        use Encode;

        my (undef,$charset,$base,$string_txt,undef) = split(/\?/,$_[0]);
        $string_txt = decode_base64($string_txt) if($base eq "B";
        $string_txt = decode_qp($string_txt) if($base eq "Q";
        $string_txt=encode("utf8",decode($charset,$string_txt));
        return $string_txt;
}