html - 如何解码 HTML 实体？

Question

这是一个简单的 Perl 问题:

如何将 ü 或 ' 等 HTML 特殊字符转换为普通的 ASCII 文本？

我从这样的事情开始:

s/\&#(\d+);/chr($1)/eg;

并且可以为所有 HTML 字符编写它，但是像这样的函数可能已经存在了？

请注意，我不需要完整的 HTML->Text 转换器。我已经使用 HTML::Parser 解析了 HTML。我只需要用我得到的特殊字符转换文本。

Answer 1

看看HTML::Entities :

use HTML::Entities;

my $html = "Snoopy & Charlie Brown";

print decode_entities($html), "\n";

你可以猜出输出结果。