perl mail（Mail::POP3Client+MIME::Parser）
http://blog.csdn.net/ganmao/archive/2008/04/02/2245918.aspxhttp://blog.csdn.net/images/authorship.gif关于邮件的几个模块 收藏
这几天净捣鼓收取邮件的问题了,一开始用了些基本的模块,很多问题解决不了,查找了文档才有点眉目.
先说说环境:
Cygwin+Perl5.8+Mail::POP3Client+MIME::Parser+MIME::Entity+Time::HiRes
Mail::POP3Client封装了基本的Net::POP3,使用起来更简单
MIME::Parser是MIME::Entity的子类,就是用来解析格式的
Time::HiRes用来计算消耗时间
看看代码:
===========================================================================
#!/usr/bin/perl-w
use strict;
use Mail::POP3Client;
use Time::HiRes qw(gettimeofdaytv_interval);
use MIME::Parser;
use MIME::Entity;
my $start_time = ;
my $host = 'pop3.163.com';
my $user = '####@163.com';
my $passwd ='******';
my $client = new Mail::POP3Client( $user, $passwd, $host );
my$parser = MIME::Parser->new;
my $mgrnum = $client->Count;
print "当前共有邮件[$mgrnum]封!\n";
for ( my $i = 1 ; $i HeadAndBody($i);
my $entity =$parser->parse_data($headandbody);
$parser->decode_headers(1);
print "From =",$entity->head->get('From');
print "To =",$entity->head->get('To');
print "Cc =",$entity->head->get('Cc');
print "Subject =",$entity->head->get('Subject');
print "MIME type =",$entity->mime_type,"\n";
print "Parts = ",scalar$entity->parts,"\n";
my $part_num = scalar $entity->parts;
for my $part ($entity->parts){
print"\t",$part->mime_type,"\t",$part->bodyhandle,"\n";
}
print"=========================================================\n";
exit if ( (scalar $entity->parts) == 1 );
#exit if ($i >=3);
}
my $interval = tv_interval( $start_time, );
print"it take the time : $interval seconds\n";
==============================================================================
前面始终没有闹明白为什么邮件头里面Subjects中文总是乱码不能解析,翻了翻RFC的文档,看看MIMR::Parser才知道有一个 decode函数
### Automatically attempt to RFC 2047-decode the MIME headers?
$parser->decode_headers(1); ### default is false
解析还是很方便的,呵呵
在$parser->parse_data($headandbody)的时候会将邮件body保留在本地msg-PID-#.txt文件 中,附件也保留在相应目录下!
页:
[1]