代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Perl
】
通过IMAP接收、处理邮件
作者:
gogo
/ 发布于
2014/1/17
/
927
#!/usr/bin/perl usewarnings; usestrict; useMail::IMAPClient; useTerm::ReadKey; print"Input your password for ops mail:"; ReadMode 2; chomp(my$password=<STDIN>); ReadMode 0; my$imap=Mail::IMAPClient->new( Server =>'192.168.10.5', User =>'operate', Password =>$password, #Ssl => 1, #Uid => 1, ); { my$folders=$imap->folders ordie"List folders error ",$imap->LastError,"\n"; foreach(@$folders) { nextif($_!~ /inbox/i); $imap->select($_) ordie"Select $_ error: ",$imap->LastError,"\n"; last; } } my$mailID; { my@mytime=localtime(time); my$mydate=sprintf("%04d%02d%02d",$mytime[5]+1900,$mytime[4]+1,$mytime[3]); my$output=$imap->search(subject => "$mydate.subject"); my$mailID=$output->[$#{$output}]; print"$mailID\n"; } my$msgbody=$imap->body_string($mailID); # Add your own processing code here! print"$msgbody\n"; $imap->logout ordie"Logout error: ",$imap->LastError,"\n"; print"We logout\n";
试试其它关键字
邮件
同语言下
.
获取本机所有IP和设备的绑定情况
.
生成隨機密碼
.
取文件的最后修改时间
.
获取本机所有IP和设备的绑定情况
.
将perl脚本变成乱糟糟的一团
.
从 HTML网页中解析出链接
.
使用 HTTP::Request 请求 URL 并将响应保存到文件
.
使用指定的User-Agent抓取网页
.
使用 Net::SMTP发送邮件
.
编写的一个简单 Web服务器
可能有用的
.
C#实现的html内容截取
.
List 切割成几份 工具类
.
SQL查询 多列合并成一行用逗号隔开
.
一行一行读取txt的内容
.
C#动态修改文件夹名称(FSO实现,不移动文件)
.
c# 移动文件或文件夹
.
c#图片添加水印
.
Java PDF转换成图片并输出给前台展示
.
网站后台修改图片尺寸代码
.
处理大图片在缩略图时的展示
gogo
贡献的其它代码
(
7
)
.
执行Linux安装程序和脚本
.
批量赋予可执行权限
.
通过IMAP接收、处理邮件
.
监控网站的性能和 uptime
.
删除文件
.
扫描apache日志,寻找type==1的日志,写到数据库里.
.
从文件中提取字符串
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3