Perl脚本通过变量传递密码时SMTP认证失败问题排查

这是Perl读取环境变量对接SMTP认证的典型坑，核心问题有两个：

1. 环境变量作用域不匹配：你在交互Shell里设置的PASSWD环境变量，仅在当前Shell会话及其启动的子进程中生效。如果你的Perl脚本是通过cron定时任务、systemd服务、sudo调用、Web服务触发等方式运行，这些运行上下文默认不会继承你在交互Shell里设置的自定义环境变量，最终$ENV{'PASSWD'}取到的是undef空值。
   你提到非SMTP场景下读取环境变量正常，基本是因为测试时是在当前Shell会话里直接跑脚本验证取值，没有模拟脚本实际的生产运行环境。
2. 缺少错误校验导致静默失败：你当前的代码没有开启严格模式和警告，也没有对环境变量取值、SMTP认证结果做校验。旧版本Net::SMTP::SSL依赖的Authen::SASL模块遇到传入undef的密码参数时，不会抛出Perl级别的报错，会直接把空值传给Gmail SMTP服务端，最终只表现为认证失败，没有明确错误提示，很难定位根因。

按以下步骤调整即可：

• 先给脚本加上强制校验和错误提示，从根源上避免静默失败：

use strict;
use warnings;
my $smtp = Net::SMTP::SSL->new('smtp.gmail.com', Port => 465, Debug => 0) 
  || die "Failed to connect to SMTP server: $!";

my $passwd = $ENV{'PASSWD'};
# 强制校验环境变量是否有效
die "Fatal error: PASSWD environment variable is not set or empty" 
  unless defined $passwd && length($passwd) > 0;

# 认证失败直接打印服务端返回的具体错误
$smtp->auth('email@gmail.com', $passwd) 
  || die "SMTP authentication failed: " . $smtp->message();

• 根据脚本实际运行场景，确保环境变量能被正确加载：
  • 如果是cron定时任务运行：不要依赖全局环境变量，直接在crontab配置里为任务声明变量，或者在执行命令前传入，例如：

    # 直接在crontab里定义变量
    PASSWD=你的Gmail应用专用密码
    0 8 * * * /usr/bin/perl /path/to/your/send_mail.pl
    

  • 如果是通过sudo运行脚本：调用时加-E参数保留当前用户的环境变量，避免自定义变量被sudo默认重置。
  • 如果是systemd托管运行：在对应service配置文件的[Service]段添加Environment="PASSWD=你的Gmail应用专用密码"，重载配置后再启动服务。
• 注意Gmail的认证规则：当前Gmail SMTP已不支持账号原始密码登录，无论硬编码还是读环境变量，都必须使用开启两步验证后生成的应用专用密码，否则会直接返回认证失败。

内容的提问来源于stack exchange，提问作者Roger Creasy