会python真的可以为所欲为0(回)
396天前
这里还有人吗1(回)
581天前这里还有人吗0(回)
581天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
805天前到处都是羊，不想上班0(回)
885天前
鸽子
0(回)
890天前#!/usr/bin/perl |
use strict; |
use Net::IMAP::Simple; |
my $server = new Net::IMAP::Simple ( 'imap.0451.com' ); |
$server->login ( 'user_name', 'passwd' ); |
#show the mailboxs |
#map {print "$_\n";} $server->mailboxes(); |
#show mail's content |
my $n = $server->select( 'inbox' ) or die "no this folder\n"; |
foreach my $msg ( 1..$n ) |
{ |
my $lines = $server->get( $msg ); |
print @$lines; |
print "_________________ Press enter key to view another! ...... __________________\n"; |
read STDIN, my $key, 1; |
} |
exit 0; |
在取得中文的Folder时，会出现乱码的情况， |
这个问题现在没有解决。英文的Folder则没问题。 |
IMAP协议，默认端口为143，可以用telnet登录。 |
QUOTE:telnet imap.xxx.com 143 |
2 login user pass |
2 list "" * |
2 select inbox |
...... |
by: 发表于：2017-09-12 14:54:57 顶(0) | 踩(0) 回复
？？
回复评论