作者deh3215 ()
看板Perl
标题Re: [问题] 要抓取mail-header和mail-body用些模组 …
时间Tue Feb 3 20:52:52 2009
※ 引述《audreytang (Audrey)》之铭言：
: ※ 引述《deh3215 ()》之铭言：
: : 现在想写个程式对mail-header和body做处理,估狗爬文後发现mail模组众多,目前打算
: : 邮件伺服器(/var/spool/使用者帐号)读入信件做处理,不知道大家都用哪些mail模组处理
: : mail-header/body？
: 如果只需要读取, 不用写入的话, Email::Folder 应该就够用了。
: 如果需要删除, 则需并用 Email::Delete.
: 关於 Mail Header/Body 的处理, 通常是用 Email::Simple 或 Email::MIME.
: 另请参考: http://emailproject.perl.org/mediawiki/
: 如果对 Mailbox 需要做很复杂的处理, 也可以考虑 Mail::Box.
: Cheers,
: Audrey
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)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.117.168.75
1F：推 buganini:请爱用Data::Dumper 02/10 00:12
3F：→ buganini:以前写的作业:) 02/10 00:15