用户注册



邮箱：

密码：

用户登录


邮箱：

密码：
记住登录一个月忘记密码？

发表随想


还能输入：200字
云代码 - perl代码库

Net::POP3, login(), list(), get()

2012-10-17 作者： 神马举报

[perl]代码库

view sourceprint?
#!/usr/bin/perl
use strict;
use Net::POP3;
use Data::Dumper;
 
my $user = "user";
my $pass = shift or die "Usage : $0 passwd\n";
my $host = "pop3.web.com";
#pop3 address
 
my $p = Net::POP3->new ( $host ) or die "Can't connect $host!\n";
$p->login ( $user, $pass ) or die "user or passwd error!\n";
my $title = $p->list or die "No mail for $user\n";
 
foreach my $h ( keys %$title )
{
    my $msg = $p->get ( $h );
    print @$msg;
}
$p->quit;
exit 0;
 
telnet pop3.web.com 110 也可以直接连到pop3 server上，然后通过pop3命令与邮件服务器交互，
 
#简单的命令有：
 
 
QUOTE:
USER name
PASS string
STAT
LIST [n]
RETR msg
DELE msg
NOOP
RSET
QUIT
 
 
#这样，也就可以利用Net::Telnet来做一个收信件的简单程序。


网友评论    (发表评论)

共1 条评论 1/1页

发表评论：

评论须知：

  • 1、评论每次加2分，每天上限为30；
  • 2、请文明用语，共同创建干净的技术交流环境；
  • 3、若被发现提交非法信息，评论将会被删除，并且给予扣分处理，严重者给予封号处理；
  • 4、请勿发布广告信息或其他无关评论，否则将会删除评论并扣分，严重者给予封号处理。


扫码下载

加载中，请稍后...

输入口令后可复制整站源码

加载中，请稍后...