|
|
|
|
| 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ |
  寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - happy2000 [ 2003-01-03 11:58 | 2,787 byte(s)]
Re: 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - jerryzhou [ 2003-01-06 14:18 | 683 byte(s)]
Re: 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - happy2000 [ 2003-01-06 18:19 | 113 byte(s)]
Re: 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - jerryzhou [ 2003-01-08 13:29 | 451 byte(s)]
Re: 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - bytewolf [ 2003-01-14 18:09 | 33 byte(s)]
Re: 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - loveperl [ 2003-01-14 18:20 | 34 byte(s)]
Re: 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - jerryzhou [ 2003-01-07 00:59 | 122 byte(s)]
Re: 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - jerryzhou [ 2003-01-06 21:34 | 811 byte(s)]
Re: 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - ROB [ 2003-01-03 14:38 | 2,068 byte(s)]
Re: 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - jerryzhou [ 2003-01-06 21:46 | 781 byte(s)]
Re: 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - happy2000 [ 2003-01-03 16:13 | 108 byte(s)]
Re: 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - ROB [ 2003-01-03 16:34 | 24 byte(s)]
Re: 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - wind [ 2003-01-04 13:08 | 30 byte(s)]
Re: 寻求帮助－转换邮件的编码格式！各位一定要帮帮我呀！ - happy2000 [ 2003-01-03 15:25 | 12 byte(s)]
|
|
|
|
[Original]
[Print]
[Top]
|
我使用outlook收到一份退信，但是信件的内容在附件中，于是我将复印件另存了下来，但是打开后看到的都是一堆编码，我们正常浏览，各位帮帮忙谁能提供一个perl程序帮我转换一下，该另存的文件的部分内容如下：（各位一定要帮帮我呀！）
Received: from wzp (unknown [210.72.13.195])
by mail.sdbwer.gov.cn (Postfix) with ESMTP id A7059F7BDA
for <tempook@guoxin.sh.cn>; Sun, 29 Dec 2002 06:47:03 +0800 (CST)
Message-ID: <6848169.1041115435301.JavaMail.Administrator@wzp>
From: =?GBK?B?1tC/xtS6zfjC59bQ0MQ=?= <ser@sdbwer.gov.cn>
To: tempook@guoxin.sh.cn
Subject: =?GBK?B?0/LD+7W9xtq9ybfRzajWqg==?=
Mime-Version: 1.0
Content-Type: text/plain; charset=GBK
Content-Transfer-Encoding: base64
Date: Sun, 29 Dec 2002 06:47:03 +0800 (CST)
x9ewrrXE08O7p6OsxPq6w6OhCgrE+rWlzrujqMnPuqPOqNG4tefX09PQz965q8u+o6nJ6sfrtcTT
8sP7o6h2aWV3c29uaWNzLmNvbS5jbqOpvbu30cjVzqoyMDAyxOoxMtTCMjnI1aGj1tC5+r/G0afU
us34wufW0NDEzOHQ0cT6o7rOqsi3saPE+s341b61xNX9s6PUy9DQo6zH68T6vqG/7LDswO3T8sP7
vbu30crW0PijrNLUw+LU7LPJsrux2NKqtcTL8MqnoaMKCsS/x7DT8sP7t9HTw86qw7+49jI4MNSq
o6zH68T6vLDKsb27t9GjrL7fzOW9u7fRt73Kvcjnz8KjugooMSkuzfjC59bQ0MTD5r27o7oKCbGx
vqnW0LnYtOXEz8vEvdbLxLrFo6jW0Ln6v8bRp9S6yO28/tSwxNq24LmmxNzM/MTPw8WjqQoJo6jS
1NanxrG4tr/utcTTw7unx+vU2tanxrG1xMynzbfQtMP3ItbQufq/xtGn1Lq8xsvju/rN+MLn0MXP
otbQ0MQiu/K/1dfFzKfNt6OpCgooMiku0vjQ0Lvjv+6jugoJtaXOu8P7s8ajutbQufq/xtGn1Lq8
xsvju/rN+MLn0MXPotbQ0MQKCdXKo5SjlLrFo7owMjAwMDQ5NjA5MjAwMDE2NDMxCgm/qiC7pyDQ
0KO6uaTJzNL40NC6o7Xt1qfQ0NOq0rWyvwoJo6jH672ru+O/7rXXtaW4tNOhuvPQtMfl0/LD+6Gi
taXOu8P7s8a0q9Xm1sEwMTAtODI2MTA1MDChojgyNjEwMzMwo6y0q9XmuvPH67KmtPK157uwODAw
ODEwNjY2MKGiMDEwLTgyNjE5OTc3yLfIz6OpCgooMyku08rV/rvjv+6jugoJtdggICAg1rejurGx
vqkzNDnQxc/kOLfWz+QKCdPK1f6x4MLro7oxMDAwODAKCcrVIL/uIMjLo7rN+MLn1tDQxKOoytWj
qQoJo6jH69TauL3R1MDv0LTJz8T6tcTT8sP7oaLBqs+1tee7sLrN0/LD+8v509DIqLWlzru88rPG
o6kKCs6qt72x48T6udzA7dPyw/ujrNfU1ve4/LjEz+C52MGqz7XQxc+io6zO0sPH0tHT2r38xtrE
2rj40/LD+8/gudjBqs+1yMvTys/kt6LLzcHLudzA7cPcwuujrMfrxPrXotLisunK1aOszdfJxrGj
udyjrMjnxPrOtMrVtb253MDtw9zC68frtb0KaHR0cDovL2RvbWFpbi5jbmljLmFjLmNuL2RvbWFp
bi9tYWlsL2RubW1fcXVlcnkuanNwsLTSqsfzyKG72KGj0vLT8sP7vbu30aGiw9zC67aqyqehotDF
z6K07c7ztcjS/cbwtcTU8MjOvvnTydPDu6fX1NDQs9C1o6GjCgqxvrXn19PTyrz+ysfTybv6xvfX
1Lavt6LLzaOsyOfE+tPQysLQ6NKq0a/OyrrNsO/W+qOsx+u3w87KztLDx7XEzfjVvmh0dHA6Ly9k
b21haW4uY25pYy5hYy5jbrvy0+swMTAtODI2MTk5NzehojgwMDgxMDY2NjDBqs+1o6zSsr/Jt6LT
yrz+c2VydmljZUBjbmljLmFjLmNu0a/Oyi4=
|
|
|
----
上邪! 我欲与君相知,长命无绝衰.
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
use MIME::Base64;
my $encoded = <<__EOT__;
x9ewrrXE08O7p6OsxPq6w6OhCgrE+rWlzrujqMnPuqPOqNG4tefX09PQz965q8u+o6nJ6sfrtcTT
8sP7o6h2aWV3c29uaWNzLmNvbS5jbqOpvbu30cjVzqoyMDAyxOoxMtTCMjnI1aGj1tC5+r/G0afU
us34wufW0NDEzOHQ0cT6o7rOqsi3saPE+s341b61xNX9s6PUy9DQo6zH68T6vqG/7LDswO3T8sP7
vbu30crW0PijrNLUw+LU7LPJsrux2NKqtcTL8MqnoaMKCsS/x7DT8sP7t9HTw86qw7+49jI4MNSq
o6zH68T6vLDKsb27t9GjrL7fzOW9u7fRt73Kvcjnz8KjugooMSkuzfjC59bQ0MTD5r27o7oKCbGx
vqnW0LnYtOXEz8vEvdbLxLrFo6jW0Ln6v8bRp9S6yO28/tSwxNq24LmmxNzM/MTPw8WjqQoJo6jS
1NanxrG4tr/utcTTw7unx+vU2tanxrG1xMynzbfQtMP3ItbQufq/xtGn1Lq8xsvju/rN+MLn0MXP
otbQ0MQiu/K/1dfFzKfNt6OpCgooMiku0vjQ0Lvjv+6jugoJtaXOu8P7s8ajutbQufq/xtGn1Lq8
xsvju/rN+MLn0MXPotbQ0MQKCdXKo5SjlLrFo7owMjAwMDQ5NjA5MjAwMDE2NDMxCgm/qiC7pyDQ
0KO6uaTJzNL40NC6o7Xt1qfQ0NOq0rWyvwoJo6jH672ru+O/7rXXtaW4tNOhuvPQtMfl0/LD+6Gi
taXOu8P7s8a0q9Xm1sEwMTAtODI2MTA1MDChojgyNjEwMzMwo6y0q9XmuvPH67KmtPK157uwODAw
ODEwNjY2MKGiMDEwLTgyNjE5OTc3yLfIz6OpCgooMyku08rV/rvjv+6jugoJtdggICAg1rejurGx
vqkzNDnQxc/kOLfWz+QKCdPK1f6x4MLro7oxMDAwODAKCcrVIL/uIMjLo7rN+MLn1tDQxKOoytWj
qQoJo6jH69TauL3R1MDv0LTJz8T6tcTT8sP7oaLBqs+1tee7sLrN0/LD+8v509DIqLWlzru88rPG
o6kKCs6qt72x48T6udzA7dPyw/ujrNfU1ve4/LjEz+C52MGqz7XQxc+io6zO0sPH0tHT2r38xtrE
2rj40/LD+8/gudjBqs+1yMvTys/kt6LLzcHLudzA7cPcwuujrMfrxPrXotLisunK1aOszdfJxrGj
udyjrMjnxPrOtMrVtb253MDtw9zC68frtb0KaHR0cDovL2RvbWFpbi5jbmljLmFjLmNuL2RvbWFp
bi9tYWlsL2RubW1fcXVlcnkuanNwsLTSqsfzyKG72KGj0vLT8sP7vbu30aGiw9zC67aqyqehotDF
z6K07c7ztcjS/cbwtcTU8MjOvvnTydPDu6fX1NDQs9C1o6GjCgqxvrXn19PTyrz+ysfTybv6xvfX
1Lavt6LLzaOsyOfE+tPQysLQ6NKq0a/OyrrNsO/W+qOsx+u3w87KztLDx7XEzfjVvmh0dHA6Ly9k
b21haW4uY25pYy5hYy5jbrvy0+swMTAtODI2MTk5NzehojgwMDgxMDY2NjDBqs+1o6zSsr/Jt6LT
yrz+c2VydmljZUBjbmljLmFjLmNu0a/Oyi4=
__EOT__
print decode_base64($encoded);
|
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
关键是你的退信的server服务器给出的格式有问题, 上文存档为mail.eml文件后, 很容易用oe打开, GBK字符集而已, 如果是早期的oe可能不行, xp自带的完全可以. 下面是摘要:
亲爱的用户，您好！
您单位（上海唯迅电子有限公司）申请的域名（viewsonics.com.cn）交费日为2002年12月29日。中国科学院网络中心提醒您：为确保您网站的正常运行，请您尽快办理域名交费手续，以免造成不必要的损失。
目前域名费用为每个280元，请您及时交费，具体交费方式如下：
(1).网络中心面交：
.........
另外, 我想问这里各位一个问题, perl模块库里面是否有成形的分析MIME的模块? 包括解码subject型如=?GB2312?B?.....?=
的格式分析和解码一体的?
|
|
|
----
无忌，你学会了英文神功，学什么都快！
---张三丰
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
|
你的问题，我不知道理解对不对呀，您可以使用use MIME::Parser，他可以分析例如'From'或者'Subject'甚至其他的邮件内容。
|
|
----
上邪! 我欲与君相知,长命无绝衰.
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
我粗看一下,
decode_headers [YESNO]
Instance method. Controls whether the parser will attempt to decode all the MIME headers (as per RFC-1522) the moment it sees them. This is not advisable for two very important reasons:
It screws up the extraction of information from MIME fields. If you fully decode the headers into bytes, you can inadvertently transform a parseable MIME header like this:
Content-type: text/plain; filename="=?ISO-8859-1?Q?Hi=22Ho?="
into unparseable gobbledygook; in this case:
Content-type: text/plain; filename="Hi"Ho"
这个应该就是我想要的, 呵呵, 谢谢
具体位置在这里, 有具体的模块how to, 很不错的
|
|
|
----
无忌，你学会了英文神功，学什么都快！
---张三丰
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
我有个问题, 在解码这段文字的时候, 发现这一行:
//*******************************
您单位（上海唯迅电子有限公司）申请的域名（viewsonics.com.cn）交费日为2002年12月29日。中国科学院网络中心提醒您?
何繁Ｄ镜恼Ｔ诵校肽】彀炖碛蛎环咽中悦庠斐刹槐匾乃鹗А?
//*******************************
总是会出现乱码, 但是oe就完全正常, 而且很多Unix类型的程序都会出现这个问题, 就是在中段出错乱码, 一直影响到下一行, 不知道谁有解决这个问题??正确地在下面:
//--------------------------------------
您单位（上海唯迅电子有限公司）申请的域名（viewsonics.com.cn）交费日为2002年12月29日。中国科学院网络中心提醒您：为确保您网站的正常运行，请您尽快办理域名交费手续，以免造成不必要的损失。
//---------------------------------
|
|
|
----
无忌，你学会了英文神功，学什么都快！
---张三丰
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
我看了, 但是就是没有处理GB2312和Hz等等编码的, 只有欧洲啊, 美洲啊什么的编码.......唉, 没有中国人参加哦?
|
|
----
无忌，你学会了英文神功，学什么都快！
---张三丰
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
我问了原作者了, 他作MIME::Tools的时候perl还没有全面支持unicode, 所以现在没有一个module很全面的解码邮件到unicode的  (((
包括一步解码到utf8的, 都没有, 看来只好自己hack MIME module了, 不过我水平有限啊.
呵呵, MIME作者推荐上 comp.lang.perl.module上问问
不过谁知道现在有开放转信的news服务器啊?
国内能上去的, 速度快点的?
|
|
----
无忌，你学会了英文神功，学什么都快！
---张三丰
|
|
[Original]
[Print]
[Top]
|
|
|
声明: 本页内容为中国Linux论坛的内容镜像，文章的版权以及其他所有的相关权利属于中国Linux论坛和相应文章的作者，如果转载，请注明文章来源及相关版权信息。