Perl使用Net::SMTP_auth认证发送邮件

?

?
?
?
?
几点说明：
1，发送邮件前，需要替换文件头的 "@SMTP_SVR_IP_VAR@" 等变量
2，可自动识别是否需要认证，即可连接smtp服务器或mx服务器发信
3，安装perl后默认安装Net::SMTP模块，但没有安装Net::SMTP_auth模块，需要另外安装
4，Net::SMTP_auth要用到Digest::HMAC_MD5和Authen::SASL，需要另外安装
5，所有perl模块都可以在http://search.cpan.org找到下载，下载后解开安装包，执行perl Makefile.pl && make && make install可完成安装，或将*.pm拷贝到/usr/lib/perl5/5.8.8相应的目录下完成安装
6，查看系统已经安装的perl模块的方法：find /usr/lib/perl5/5.8.8 | grep .pm

?