程嶏清单 17-5.txt

< linux网络编程工具>>配套源码

程序清单17-5：pop3.pl
use Net::POP3;
$mail = Net::POP3->new($POP3Server’);
die “could not open account” unless $mail;
$n = $mail->login($account,$passwd);
$r_msgs = $mail->list();  # 返回一个指向散列表的引用
foreach $msg_id (keys %$r_msgs)
{
  print “Msy $msg_id (“,$r_msgs->{$msg_id},”):\n”;
  $rl_msg = $mail->top($msg_id,3);
  print @$rl_msg;
}
$mail->quit;