Perl中使用HTMLMail包时如何实现字符串拼接/插值？

你遇到的核心问题是单引号字符串不会解析变量，同时原代码里的HTML闭合标签也有误（应该是</FONT>而非</FONT COLOR>），下面给你几个可行的解决办法：

方法1：使用转义的双引号字符串 #

双引号字符串会自动解析变量，只需转义字符串内部的双引号和单引号：

my $text = "<FONT COLOR=\"#AF0000\">These programs: $ARGV[0] $ARGV[1] can\'t load!</FONT>";

方法2：使用qq操作符简化转义 #

Perl的qq{}操作符等价于双引号，支持自定义分隔符，能避免大量转义操作，代码更清晰：

my $text = qq{<FONT COLOR="#AF0000">These programs: $ARGV[0] $ARGV[1] can't load!</FONT>};

这里用{}作为分隔符，内部的双引号、单引号都不需要转义，变量会正常被替换。

方法3：字符串拼接（适合复杂场景） #

把静态HTML部分和变量分开拼接，注意单引号内的单引号需要转义：

my $text = '<FONT COLOR="#AF0000">These programs: ' . $ARGV[0] . ' ' . $ARGV[1] . ' can\'t load!</FONT>';

用.连接各个部分，静态内容用单引号包裹，变量直接拼接，确保语法正确。

注意事项 #

• 之前出现「需指定显式包名」的错误，大概率是拼接时语法错误（比如漏了.、引号不匹配），导致Perl误将变量解析为未声明的包成员。
• 务必修正HTML标签：原代码中的</FONT COLOR>是错误的，标准闭合标签为</FONT>，否则邮件客户端可能无法正确渲染颜色。

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