這篇文章主要介紹了perl批量下載gmail附件的代碼,本文重點在使用mail::pop3client模塊和gmail通信的方法,需要的朋友可以參考下。
最近在寫一個從gmail批量下載附件的程序，用到了mail::pop3client和mime::parser2個模塊
實現(xiàn)代碼：
代碼如下:
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();
公眾號
事業(yè)單位
當(dāng)前位置：
公考類
招聘類
各類考試