关于sendmail成功后的反馈问题[求助]

cloudlet

UID: 22759
帖子: 3
积分: 6
在线时间: 10 分钟

1^# cloudlet 发表于 2006-11-28 17:35

关于sendmail成功后的反馈问题[求助]

关于sendmail成功后的反馈问题[求助]
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$r_mail='xxx@163.com';
$s_mail='xxx@gmail.com';
$subject='test';

$sendmail = "/usr/sbin/sendmail";
open(MAIL, "|$sendmail -t");
select(MAIL);

print<<END_TAG;
To: $r_mail
From: $s_mail
Subject: $subject
Content-type:text/html;

<html><body><p>test</p></body></html>

END_TAG
close(MAIL);

print "send successfully";
大家帮我看一下, 邮件是可以发送出去的, 可是为什么最后一句没有在页面上显示?怎么才能解决?谢谢

beckheng

UID: 3408
帖子: 87
积分: 200
在线时间: 10 小时

2^# beckheng 发表于 2006-11-28 17:43

在print "send successful.
在print "send successfully";之前要select(STDOUT);

cloudlet

UID: 22759
帖子: 3
积分: 6
在线时间: 10 分钟

3^# cloudlet 发表于 2006-11-28 17:48

谢谢
解决了, 多谢炉火纯青 , 可是不明白为什么这么做, 能指点一下吗

cloudlet

UID: 22759
帖子: 3
积分: 6
在线时间: 10 分钟

4^# cloudlet 发表于 2006-11-28 17:51

不好意思 ,打错了
多谢beckheng , 不好意思,弄错了, 第一次发贴

cnhacktnt

UID: 40772
帖子: 111
积分: 255
在线时间: 17 小时

5^# cnhacktnt 发表于 2006-11-28 20:59

因为你之前已经 select(MA.
因为你之前已经 select(MAIL); 了，如果不 select(STDOUT); 的话，默认的输出都通过你open出的管道输出到sendmail里了，无法输出到标准输出STDOUT（这里默认是屏幕）中去
所以如果你想在屏幕上看到 "send successfully"，那就得 select(STDOUT),或者 [quote]print STDOUT "send successfully";[/quote]
明白了吧？ :-)

cloudlet

UID: 22759
帖子: 3
积分: 6
在线时间: 10 分钟

6^# cloudlet 发表于 2006-11-28 22:59

明白了, 谢谢!.