这篇文章主要介绍了Perl的Mail::POP3Client模块和Gmail通信实例,本文直接给出实现代码,需要的朋友可以参考下

一、前言

最近在写一个从gmail批量下载附件的程序,用到了 Mail::POP3Client 和 MIME::Parser 2 个模块

二、相关文档

CPAN:
Mail::POP3Client模块
MIME::Parser模块
StrawberryPerl模块的安装、卸载与查看

三、实现

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();
最新资讯
从富士康“厂妹”到立讯掌门人 王来春凭什么让郭台铭忌惮?

从富士康“厂妹”到立

相比立讯精密在商业上的成就、在科技企业中的地位,人们
恶意攀附“滴滴”品牌知名度 “滴滴打球”被判赔70万

恶意攀附“滴滴”品牌

继今日头条、B站被“傍大牌”后,滴滴也被傍上了。
与富士康打擂台?立讯精密前三季度营收595亿,创始人身家910亿

与富士康打擂台?立讯精

通过与苹果深度捆绑,立讯精密业绩再获丰收。
科学好故事|如何建造一艘拯救地球的航天器?

科学好故事|如何建造

明年夏天,NASA将通过一个立方体航天器撞击一颗较小的小
微软高管解读2021第一财季财报 纳德拉:用户开始更愿意选择Azure

微软高管解读2021第一

开发者方面,无论是直接迁移(lift-and-shift)还是新应用,他
已故三星会长李健熙任内公司资产增长约5万亿元

已故三星会长李健熙任

已故三星集团会长李健熙任内三星总资产增长逾76倍,增加
最新文章
将Perl5代码迁移到Perl6上的解决方案

将Perl5代码迁移到Per

今天小编就为大家分享一篇关于将Perl5代码迁移到Perl6
Perl 批量添加Copyright版权信息

Perl 批量添加Copyrig

对所有输入文件,如果没有版权信息则加上版权信息,否则什
Perl字符串处理函数大全

Perl字符串处理函数大

本文重点讨论Perl字符串处理函数的用法,每种函数都有
Perl中常见符号与操作

Perl中常见符号与操作

这篇文章主要介绍了Perl中常见符号与操作,需要的朋友
Perl学习教程之单行命令详解

Perl学习教程之单行命

这篇文章主要给大家介绍了关于Perl学习教程之单行命令
使用Perl生成随机密码

使用Perl生成随机密码

本文给大家分享的是使用perl生成随机密码的方法示例,而