论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2010-02-01 10:52 |只看该作者 |倒序浏览

my $smtp=Net::SMTP->new('smtp.163.com') or die"cant new";
Hello，Timeout 都应该是可选的把，为什么我老NEW失败cant new at ./smtp line 5.

文库|博客

suxingwakeup

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2010-02-01 11:33 |只看该作者

在window下面能运行，在vm 的linux下一直cant new。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

兰花仙子

版主

论坛徽章:: 0

3楼 [报告]

发表于 2010-02-01 14:20 |只看该作者

new时加上Debug => 1选项看看。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

suxingwakeup

白手起家

论坛徽章:: 0

4楼 [报告]

发表于 2010-02-01 15:17 |只看该作者

Debug后还是只显示上述错误信息。
code：
#!/usr/bin/perl -w
use strict;
use Net::SMTP;
use Authen::SASL;
my $smtp=Net::SMTP->new('smtp.sina.com',
                     Debug=>1,
                     ) or die"cant new";
      $smtp->auth('songhaibing708','83488543') or die "cant auth";
      $smtp->mail('songhaibing708@163.com') or die "cant mail";
      $smtp->to('songhaibing708@163.com') or die "cant to";
      $smtp->data();
      $smtp->datasend('to:you\n');
      $smtp->datasend('\n');
      $smtp->datasend("a simple test");
      $smtp->dataend();
      $smtp->quit();
不知道问题出在那里？