将Perl变量传递给JavaScript函数时出现错误，寻求解决方法

我来帮你逐个分析每种写法的问题，然后给出可靠的实现方案：

各写法错误原因 #

• 写法1：print "<button onclick='return getPdf(\"$user\");'>PDF</button>";
  你遇到的500内部错误大概率是Perl层面的问题——如果代码开启了严格模式（use strict），未用my声明$user会触发报错；另外如果$user包含特殊字符（比如反斜杠、未转义的引号），也会导致Perl解析字符串时出错。即便$user是"Tom"，这种写法也不够健壮，无法处理复杂内容。

• 写法2：print "<button onclick='return getPdf(".$user.");'>PDF</button>";
  这种写法直接把Perl变量拼接到JS代码里，生成的HTML会是onclick='return getPdf(Tom);'。JS会把Tom当作一个未定义的变量，自然抛出ReferenceError——你必须把字符串值用引号包裹，JS才会识别它为字符串字面量。

• 写法3：print "<button onclick='return getPdf('$user');'>PDF</button>";
  这里的单引号嵌套冲突了！生成的HTML会变成onclick='return getPdf('Tom');'，浏览器会把第一个'当作onclick属性值的结束标记，剩下的Tom');'>成了无效的HTML语法，导致JS解析时出现Unexpected end of input错误。

• 写法4：print "<button onclick='return getPdf('.$user.');'>PDF</button>";
  和写法3的问题完全一致，拼接后生成的HTML同样存在单引号未正确闭合的问题，触发相同的语法错误。

正确实现方式 #

最安全可靠的做法是把Perl变量转成合法的JavaScript字符串字面量，避免引号冲突和XSS风险，推荐使用Perl的JSON模块来做转义（它能处理所有特殊字符，比如引号、换行、反斜杠等）：

步骤1：引入JSON模块 #

在你的Perl代码开头添加：

use JSON;

步骤2：转义变量并生成HTML #

my $user = "Tom";
# 将Perl变量转成JS可识别的字符串字面量
my $user_js = encode_json($user);
# 生成按钮HTML
print "<button onclick='return getPdf($user_js);'>PDF</button>";

这样生成的HTML会是：

<button onclick='return getPdf("Tom");'>PDF</button>

JS能正确识别"Tom"为字符串，点击按钮后会正常弹出提示。

手动转义（不推荐，仅作参考） #

如果不想用JSON模块，也可以手动转义双引号和反斜杠：

my $user = "Tom";
my $escaped_user = $user;
# 先转义反斜杠，避免后续转义引号时出错
$escaped_user =~ s/\\/\\\\/g;
# 转义双引号
$escaped_user =~ s/"/\\"/g;
print "<button onclick='return getPdf(\"$escaped_user\");'>PDF</button>";

不过这种方式只能处理部分特殊字符，不如JSON模块全面。

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