最近在寫一個(gè)從gmail批量下載附件的程序，用到了 mail::pop3client 和 mime::parser 2 個(gè)模塊
實(shí)現(xiàn)代碼：
代碼如下:
use mail::pop3client;
use mime::parser;
my $u = 'user.name＠gmail.com';
my $p = 'user.password';
my $x = new mime::parser;
$x -> output_dir('c:\\download'); #directory to save attachment
my $g = mail::pop3client -> new (
user => $u,
password => $p,
host => 'pop.gmail.com',
port => 995,
usessl => 'true') or die can't connect the server.\n;
for $i (1 .. $g->count())
{
my $c = $g->headandbody($i);
my $r = $x->parse_data($c);
}
$g->close();
公眾號(hào)
事業(yè)單位
當(dāng)前位置：
公考類
招聘類
各類考試