perl+LWP包使用的问题，也说说我对perl的疑惑.

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

21^# 放驴娃发表于 2007-12-05 10:12

处理信箱的话，还是用 Net::POP3 and Net::SMTP 吧！

unix666

UID: 15449
帖子: 136
积分: 312
在线时间: 1 天 1 小时

22^# unix666 发表于 2007-12-05 10:34

现在网易免费的信箱163和126都停止了smtp和pop3的服务，只能用http处理信箱了。

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

23^# 放驴娃发表于 2007-12-05 11:00

QUOTE:

原帖由 unix666 于 2007-12-5 10:34 发表
现在网易免费的信箱163和126都停止了smtp和pop3的服务，只能用http处理信箱了。

我这里怎么可以呢？
不过我的免费邮箱是前几年注册的。

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

24^# 放驴娃发表于 2007-12-05 11:02

QUOTE:

原帖由放驴娃于 2007-12-5 11:00 发表

我这里怎么可以呢？
不过我的免费邮箱是前几年注册的。

[Copy to clipboard] [ - ]

CODE:

use strict;
use warnings;
use Net::SMTP;
use Encode qw(decode);

my $smtp = new Net::SMTP( 'smtp.163.com', Debug => 1 );

$smtp->auth( $mail_addr, $passwd ) or die;
$smtp->mail( $mail_addr );
$smtp->to( $receiver );

$smtp->data();
$smtp->datasend( "From: $mail_addr\n" );
$smtp->datasend( "To: $receiver\n" );
$smtp->datasend( decode( 'gb2312', "Subject: 测试消息。\n" ) );
$smtp->datasend( "\n" );
$smtp->datasend( decode( 'gb2312', "你好吗？\n" ) );
$smtp->dataend();

$smtp->quit;

unix666

UID: 15449
帖子: 136
积分: 312
在线时间: 1 天 1 小时

25^# unix666 发表于 2007-12-05 11:15

谢谢。不过我的信箱是新的，不能用pop3收信，smtp可以。

查到了网易关于pop3功能的说明：

“从2006年11月16日新注册用户，无法使用POP客户端功能。购买随身邮或邮箱伴侣的用户自动开启。”

所以还是想用 Mechanize模块处理邮件。

登录网易通行证的部分这样写的，为什么不行呢？

#!/usr/bin/perl

use strict;
use WWW::Mechanize;

my $URL = "http://reg.163.com/logins.jsp";
my $USER = "username";
my $PASSWORD = "password";

my $mech = WWW::Mechanize->new();

$mech->get($URL);
$mech->set_visible($USER, $PASSWORD);
$mech->click("submit");

print $mech->{content};

撒哈拉里的鱼

UID: 25861
帖子: 2
积分: 4
在线时间: 10 分钟

26^# 撒哈拉里的鱼发表于 2007-12-08 13:21

这个楼主不错，赞一个。