作者DarkKiller (System hacked)
看板Perl
标题Re: [问题] 要抓取mail-header和mail-body用些模组 …
时间Mon Feb 9 14:34:32 2009
※ 引述《deh3215 ()》之铭言：
: use Mail::Box::Manger;
: my $msg = Mail::Box::Manager->new;
: $folder_file = "/var/mail/使用者帐号";
: my $folder = $msg->open(folder => $folder_file);
: for($folder->message) {
: print $_->head->get("Subject"),"\n";
: print $_->head->get("From"),"\n";
: }
: 结果为5555555555555 <== email的主旨
: =?Big5?B?rHmq97ezpOuseQ==?= <[email protected]> <==email的寄件人
: =?Big5?B?rHmq97ezpOuseQ==?= 为mail address 但是只想要後面email部分,前面那些
: 编码如何去除?
: 另$_->head->get("From") 和$_->from差异在哪?
: $->from 印出结果是 Mail::Address 但後面email部分显示ARRAY(0X8722187)
那是 MIME-Q。
$ echo '=?Big5?B?rHmq97ezpOuseQ==?=' | piconv -f MIME-Q -t BIG5
一样的习惯，这种部份交给 module 去处理会比自己处理好，除非你把 RFC 看的很透。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.235.132
※ 编辑: DarkKiller 来自: 140.113.235.132 (02/09 14:36)