如何在Perl中转换特殊的html字符？

Question

在 PHP 中，它就像 htmlspecialchars 一样简单，如何在Perl中做到这一点？

Answer 1

使用 HTML::Entities 模块。

use HTML::Entities;

my $input = "<em>TEST</em>";
print(encode_entities($input));