※ 引述《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==?= <XXX@gmail.com> <==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)