标题 | Perl批量下载Gmail附件的代码 |
内容 | 这篇文章主要介绍了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')ordie"Can'tConnectTheServer.\n"; for$i(1..$G->Count()) { my$C=$G->HeadAndBody($i); my$R=$X->parse_data($C); } $G->Close(); |
随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。