Perl发送邮件脚本问题：读取文件中的变量无法解析

从msg.txt读取的内容会被Perl当作纯文本字符串，不会自动解析其中的$website、$token变量——只有脚本里直接用双引号包裹的字符串，Perl才会自动进行变量插值替换。

解决方案1：手动替换变量 #

直接对读取到的$msg字符串做替换，把文本里的变量名替换成实际值：

$website = "domain.com";
$token = 'token123456';

open(IN, $list);
while(chop($email_line = <IN>)) {
    local $/ = undef;
    open MSG, "msg.txt";
    $msg = <MSG>;
    close MSG; # 注意：原代码里的close FILE是错误的，要对应打开的MSG句柄

    # 替换文本中的变量
    $msg =~ s/\$website/$website/g;
    $msg =~ s/\$token/$token/g;

    my $html = "
   <html>
    $msg
    
    <div style='margin-top:5px; text-align: center;'>
        Website : $website | Token : $token
    </div>
</html>
 ";
}

解决方案2：用模板模块（更适合复杂场景） #

如果你的邮件模板内容较多、变量复杂，推荐用Text::Template模块处理，比手动替换更优雅：

1. 先安装模块：

cpanm Text::Template

2. 修改脚本：

use Text::Template;

$website = "domain.com";
$token = 'token123456';

open(IN, $list);
while(chop($email_line = <IN>)) {
    # 加载模板文件并填充变量
    my $template = Text::Template->new(TYPE => 'FILE', SOURCE => 'msg.txt');
    $msg = $template->fill_in(HASH => { website => $website, token => $token });

    my $html = "
   <html>
    $msg
    
    <div style='margin-top:5px; text-align: center;'>
        Website : $website | Token : $token
    </div>
</html>
 ";
}

此时msg.txt里直接写Website : { $website } | Token : { $token }就能被自动解析替换。

内容的提问来源于stack exchange，提问作者Mark Spencer