在Perl中生成HTML代码以显示起始HTML代码？

Question

PERL中是否有一个函数（不管它是内置函数还是模块提供的函数）会接受一个包含HTML代码部分的字符串作为其参数---并且它的返回值提供一串新生成的HTML代码，当发送到浏览器时，会向用户显示最初作为参数提供给该函数的相同HTML代码？

例如，如果提供给此函数的参数是

<p>This is <em>really</em>
what I call "awesome" & then some.</p>

我希望返回值是

的行

&lt;p&gt;This is &lt;em&gt;really&lt;/em&gt;<br/>what
I call &quot;awesome&quot; &amp; then some.&lt;/p&gt;

那么 - Perl中是否存在一个能为我做这个的功能？

Answer 1

您最好的选择可能是HTML::Escape模块

像这样使用

use strict;
use warnings 'all';

use HTML::Escape 'escape_html';

my $html = <<END_HTML;
<p>This is <em>really</em>
what I call "awesome" & then some.</p>
END_HTML

print escape_html($html);

输出

<p>This is <em>really</em>
what I call "awesome" & then some.</p>