如何替换Perl中所有HTML编码的重音符号?

你可以试试 HTML::Entities .来自POD:

use HTML::Entities;
$a = "Våre norske tegn bør &#230res";
decode_entities($a);
#encode_entities($a, "\200-\377");  ## not needed for what you are doing

为了响应您的编辑,HTML::Entities不在perl核心中。它可能仍然安装在您的系统上,因为它被许多其他库使用。您可以通过运行以下命令进行检查:

perl -MHTML::Entities -le 'print "If this prints, the it is installed"'

因为你的目的是 HTML::Entities 最好的解决方案,但如果你找不到符合你需求的现有软件包,以下方法比多种方法更有效 s/// 声明

# this part do in inter function module code which is executed in compile time
# or place in BEGIN or do once before first s/// statement using it
my %trans = (
  'Aacute;' => 'Á',
  'aacute;' => 'á',
  'Agrave;' => 'À',
  'Acirc;' => 'Â',
  'agrave;' => 'à',
); # remember you can generate parts of this hash for example by map

my $re = qr/${ \(join'|', map quotemeta, keys %trans)}/;

# this code place in your functions or methods
s/($re)/$trans{$1}/g; # 'o' is almost useless here because $re has been compiled yet

编辑 :没有必要 e 正则表达式修饰符,如所述 Chas. Owens .

我不认为有可能让TeamSite将其保留为utf-8/将其转换为utf-8?

CGI.pm有一个(未记录的)unescapeHTML函数。然而,由于它没有文档记录(我也没有查看过源代码),我不知道它是否只处理基本的HTML实体(<,>,&)或更多。然而,我猜测它只处理基本实体。

为什么有人会因为将XSL(即XML)放入XML文件而被解雇?