请教一个小问题。

starwar

我用如下代码发信，为什么我收到自己发的信都只有标题没有内容啊
*****************************************
#!/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;
*****************************************

georgek

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

devel

置顶有一贴是发电子邮件的。
以下有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'); #发送邮件。

devel

perldoc Net::SMTP
里有个例子。

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

复制代码