这篇文章主要介绍了perl批量下载gmail附件的代码,本文重点在使用mail::pop3client模块和gmail通信的方法,需要的朋友可以参考下。

最近在写一个从gmail批量下载附件的程序，用到了mail::pop3client和mime::parser2个模块

实现代码：

代码如下:

usemail::pop3client;

usemime::parser;

my$u='user.name＠gmail.com';

my$p='user.password';

my$x=newmime::parser;

$x->output_dir('c:\\download');#directorytosaveattachment

my$g=mail::pop3client->new(

user=>$u,

password=>$p,

host=>'pop.gmail.com',

port=>995,

usessl=>'true')ordiecan'tconnecttheserver.\n;

for$i(1..$g->count())

{

my$c=$g->headandbody($i);

my$r=$x->parse_data($c);

}

$g->close();