LinuxSir.cn,穿越时空的Linuxsir!

 找回密码
 注册
搜索
热搜: shell linux mysql
查看: 1121|回复: 3

请教一个小问题。

[复制链接]
发表于 2004-1-14 16:54:44 | 显示全部楼层 |阅读模式
我用如下代码发信,为什么我收到自己发的信都只有标题没有内容啊
*****************************************
#!/usr/bin/perl

use strict;
use Net::SMTP;

my $smtp = Net::SMTP->new('127.0.0.1', Timeout => 10, Debug => 0)
???or die "new error\n";

$smtp->mail('some@any.com');
$smtp->to('tikebaby@hotmail.com');
$smtp->data("Subject:好啊!\n");
$smtp->data("chinaunix,哈楼你好啊!\n");
$smtp->quit;

exit 0;
*****************************************
发表于 2004-1-14 20:03:23 | 显示全部楼层
http://search.cpan.org/~gbarr/libnet-1.17/Net/SMTP.pm

DATA may be a reference to a list or a list. If specified the contents of DATA and a termination string ".\r\n" is sent to the server. And the result will be true if the data was accepted.

這裡說最後應該是 .\r\n 的, 還沒有試過不知和樓主的問題有沒有關~~ :p
发表于 2004-1-14 21:57:44 | 显示全部楼层
置顶有一贴是发电子邮件的。
以下有HOME兄发表:

来自internet使用Mial::Internet发送电子邮件。

#!/usr/bin/perl -w
use Mail::Internet; #load module.

my $head=Mail::Header->new;
$head->add(From => 'John Doe <doe@acme.org>'); #创建邮件的头部,use Mail::Header model.please look at perldoc Mail::Header
$head->add(To => 'L Stein <lstein@lsjs.org>' );
$head->add(Cc => 'jac@acome.org');
$head->add(Cc => 'vvd@acome.org');
$head->add(Subject => 'hello there');

my $body = <<END ; #editor contain of mail
This is just a simple e-mail message.
Nothing to get excited about.

Regards, JD
END

$mail =Mail::Internet->new(Header => $head ,#这几行是创建Mail::Internet对象,
Body => [$body] ,
Modify => 1 );
print $mail->send('sendmail'); #发送邮件。
发表于 2004-1-18 14:01:32 | 显示全部楼层
perldoc Net::SMTP
里有个例子。

  1.          #!/usr/local/bin/perl -w
  2.                                                                                                 
  3.            use Net::SMTP;
  4.                                                                                                 
  5.            $smtp = Net::SMTP->new('mailhost');
  6.                                                                                                 
  7.            $smtp->mail($ENV{USER});
  8.            $smtp->to('postmaster');
  9.                                                                                                 
  10.            $smtp->data();
  11.            $smtp->datasend("To: postmaster\n");
  12.            $smtp->datasend("\n");
  13.            $smtp->datasend("A simple test message\n");
  14.            $smtp->dataend();
  15.                                                                                                 
  16.            $smtp->quit;
复制代码

您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表