Perl 发送邮件

最新推荐文章于 2017-11-20 23:00:34 发布

scan724

最新推荐文章于 2017-11-20 23:00:34 发布

阅读量624

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl 大骆驼

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/45575659

Perl 大骆驼专栏收录该内容

72 篇文章 ¥39.90 ¥99.00

订阅专栏

这篇博客介绍了如何用Perl编程语言结合Net::SMTP模块发送邮件。邮件发送涉及SMTP服务器配置，包括邮件用户、密码和服务器地址。此外，还提到了需要安装Authen::SASL模块来完成身份验证。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

v-lhb-mgr01:/root/mon# cat m5.pl 
use Net::SMTP;

# mail_user should be your_mail@163.com
sub send_mail{
    my $to_address  = shift;
    my $mail_user   = 'zhao.yangjian@163.com';
    my $mail_pwd    = 'xxxxxxxxxxxxxx';
    my $mail_server = 'smtp.163.com';

    my $from    = "From: $mail_user\n";
    my $subject = "Subject: here comes the subject\n";

    my $message = <<CONTENT; 
    **********************
    here comes the content
    **********************
CONTENT

    my $smtp = Net::SMTP->new($mail_server);

    $smtp->auth($mail_user, $mail_pwd) || die "Auth Error! $!";
    $smtp->mail($mail_user);
    $smtp->to($to_address);

    $smtp->data();             # begin the data
    $smtp->datasend($from);    # set user
    $smtp-

了解本专栏