perl通过IMAP接收、处理邮件
发布时间:2020-12-15 21:09:16 所属栏目:大数据 来源:网络整理
导读:今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 #!/usr/bin/perluse warnings;use strict;use Mail::IMAPClient;use Term::ReadKey;print "Input your password for ops mail:";ReadMode 2;chomp(my
以下代码由PHP站长网 52php.cn收集自互联网 现在PHP站长网小编把它分享给大家,仅供参考 #!/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: ","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 "$mailIDn"; } my $msgbody=$imap->body_string($mailID); # Add your own processing code here! print "$msgbodyn"; $imap->logout or die "Logout error: ","n"; print "We logoutn"; 以上内容由PHP站长网【52php.cn】收集整理供大家参考研究 如果以上内容对您有帮助,欢迎收藏、点赞、推荐、分享。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |