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

代码语言

代码分类

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

作者:dezai / 发布于2014/9/12/ 628


	#!/usr/bin/perl
	use warnings;
	use strict;
	use Mail::IMAPClient;
	use Term::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
	 or die "List folders error ", $imap->LastError, "\n";
	 foreach (@$folders) {
	 next if ($_ !~ /inbox/i);
	 $imap->select( $_ )
	 or die "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
	 or die "Logout error: ", $imap->LastError, "\n";
	print "We logout\n";

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　IMAP接收　

同语言下

可能有用的

dezai贡献的其它代码(1065)