欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

Perl批量下载Gmail附件的代码

程序员文章站 2022-04-10 22:31:57
最近在写一个从gmail批量下载附件的程序,用到了 mail::pop3client 和 mime::parser 2 个模块 实现代码: 复制代码 代码如下: us...

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

实现代码:


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();