通过IMAP接收、处理邮件代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】通过IMAP接收、处理邮件

作者:gogo / 发布于2014/1/17/ 928

#!/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";

试试其它关键字

　邮件　

同语言下

可能有用的

gogo贡献的其它代码(7)