如何写一个脚本来测试smtp服务!

levent

如题.
想写一个脚本来测试smtp服务器,但是不知道怎么入手.望那位大虾指教!多谢

x11

用perl应该行

tojeff

#!/usr/bin/perl -w
use Net::SMTP;
$mailhost = 'ftp.alchemy.cn';#你的电子邮件服务器地址，URL or IP
$smtp = Net::SMTP->new($mailhost);
if($smtp) {
        print "服务器运行正常！\n";
        $smtp->quit;
}
else {
        print "无法连接服务器！\n";
}

以下是devel的话：
我加上了 \n,你要多来哦

devel

perldoc Net::SMTP