会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前#----------------------------- |
$pop = Net::POP3->new ( $mail_server ) |
or die "Can't open connection to $mail_server : $!\n"; |
defined ( $pop->login ( $username, $password ) ) |
or die "Can't authenticate: $!\n"; |
$messages = $pop->list |
or die "Can't get list of undeleted messages: $!\n"; |
foreach $msgid ( keys %$messages ) |
{ |
$message = $pop->get ( $msgid ); |
unless ( defined $message ) |
{ |
warn "Couldn't fetch $msgid from server: $!\n"; |
next; |
} |
# $message is a reference to an array of lines |
$pop->delete ( $msgid ); |
} |
#----------------------------- |
$pop = Net::POP3->new ( "pop.myisp.com" ) |
or die "Can't connect to pop.myisp.com: $!\n"; |
#----------------------------- |
$pop = Net::POP3->new ( "pop.myisp.com", |
Timeout => 30 ) |
or die "Can't connect to pop.myisp.com : $!\n"; |
#----------------------------- |
defined ( $pop->login ( "gnat", "S33kr1T Pa55w0rD" ) ) |
or die "Hey, my username and password didn't work!\n"; |
defined ( $pop->login ( "midget" ) ) # use Net::Netrc to find password |
or die "Authentication failed.\n"; |
defined ( $pop-> |
login() ) |
# current username and Net::Netrc |
or die "Authentication failed. Miserably.\n"; |
#----------------------------- |
$pop->apop ( $username, $password ) |
or die "Couldn't authenticate: $!\n"; |
#----------------------------- |
%undeleted = $pop-> |
list(); |
foreach $msgnum ( keys %undeleted ) |
{ |
print "Message $msgnum is $undeleted{$msgnum} bytes long.\n"; |
} |
#----------------------------- |
print "Retrieving $msgnum : "; |
$message = $pop->get ( $msgnum ); |
if ( $message ) |
{ |
# succeeded |
print "\n"; |
print @$message; |
# print the message |
} |
else |
{ |
# failed |
print "failed ($!)\n"; |
} |
#----------------------------- |
by: 发表于：2017-09-15 16:56:23 顶(0) | 踩(0) 回复
？？
回复评论