Net::SMTP mail(), to(), data(), datasend(), auth()

最新推荐文章于 2025-11-22 13:05:29 发布

转载最新推荐文章于 2025-11-22 13:05:29 发布 · 1.7k 阅读

Perl 专栏收录该内容

35 篇文章

订阅专栏

本文介绍了一个使用 Perl 编写的简单 SMTP 邮件发送脚本示例。该脚本展示了如何连接到 SMTP 服务器，并发送带有简单文本内容的邮件。特别地，它还提供了如何开启调试模式以便于排错的方法。

有的SMPT Server需要Authentication，那么就使用auth()方法进行验证。

Debug模式打开，可以看到详细的SMTP命令代码。也有助于我们排错。

#!/usr/bin/perl 

use strict; 
use Net::SMTP; 

my $smtp = Net::SMTP->new('smtp.sohu.com', Timeout => 10, Debug => 0) 
   or die "new error\n"; 
#$smtp->auth("user", "passwd") or die "auth error\n"; 
$smtp->mail('some'); 
$smtp->to('some@some.com'); 
$smtp->data("chinaunix,哈楼你好啊!\n[b]:[/b])"); 
$smtp->quit; 

exit 0;