CGI:：escapeHTML（）不'；行不通
我是CGI新手，我的代码输出：CGI:：escapeHTML（）不'；行不通,html,cgi,mod-perl2,perl,Html,Cgi,Mod Perl2,Perl,我是CGI新手，我的代码输出： Hello, "<h1>Tom Cat</h1>"! 你期望它做什么？escapeHTML获取您的字符串并对其进行更改，以便显示的内容是字符串中的内容—它将其转换为其他内容，然后浏览器将其返回到原始测试 您的参数“myvar”似乎包含标记，这些标记由escapeHTML转换为h1，以便您的浏览器可以恢复原始文本 如果您不想让它这样做，而是想解释标记，那么您不需要逃避它 你希望它做什么？escapeHTML获取您的字符串并对其进行更改，以便
Hello, "<h1>Tom Cat</h1>"!
你期望它做什么？escapeHTML获取您的字符串并对其进行更改，以便显示的内容是字符串中的内容—它将其转换为其他内容，然后浏览器将其返回到原始测试 您的参数“myvar”似乎包含标记，这些标记由escapeHTML转换为h1，以便您的浏览器可以恢复原始文本
如果您不想让它这样做，而是想解释标记，那么您不需要逃避它 你希望它做什么？escapeHTML获取您的字符串并对其进行更改，以便显示的内容是字符串中的内容—它将其转换为其他内容，然后浏览器将其返回到原始测试 您的参数“myvar”似乎包含标记，这些标记由escapeHTML转换为h1，以便您的浏览器可以恢复原始文本
如果您不想让它这样做，而是想解释标记，那么您不需要逃避它 “不起作用”是对问题的糟糕描述。试着告诉我们您期望发生的事情和实际发生的事情。@davorg，我想我需要在我的开发环境中安装
CGI:：escapeHTMLCGI:：escapeHTML#!C:/Perl/bin/perl.exe -w
use strict;
use CGI;
my $q = CGI->new();
print $q->header();
my $value = $q->param("myvar");
print $q->header();
print "<html><body>";
#print qq{Hello, "$value"!\n};
print qq{Hello, "}, CGI::escapeHTML($value), qq{"!\n};
print "</body></html>";