如何通过编程方式通过XML :: Twig添加实体声明？

发布时间：2020-12-16 23:19:32 所属栏目：百科来源：网络整理

导读：对于我的生活,我无法理解实体处理的 XML :: Twig文档. 我有一些用HTML :: Tidy生成的XML.电话如下： my $tidy = HTML::Tidy-new({ 'indent' = 1,'break-before-br' = 1,'output-xhtml' = 0,'output-xml' = 1,'char-encoding' = 'raw',});$str = "foo nbsp; b

对于我的生活,我无法理解实体处理的 XML :: Twig文档.

我有一些用HTML :: Tidy生成的XML.电话如下：

my $tidy = HTML::Tidy->new({
    'indent'          => 1,'break-before-br' => 1,'output-xhtml'    => 0,'output-xml'      => 1,'char-encoding'   => 'raw',});

$str = "foo &nbsp; bar";
$xml = $tidy->clean("<xml>$str</xml>");

产生：

<html>
  <head>
    <meta content="tidyp for Linux (v1.02),see www.w3.org" name="generator" />
    <title></title>
  </head>
  <body>foo &nbsp; bar</body>
</html>

& nbsp;中的XML :: Twig(可以理解)barfs.我想做一些转换,通过XML :: Twig运行它：

my $twig = XML::Twig->new(
  twig_handlers => {... handlers ...}
);

$twig->parse($xml);

&tw;?上的$twig->解析行barfs,但我无法弄清楚如何添加& nbsp;元素编程.我尝试过这样的事情：

my $entity = XML::Twig::Entity->new("nbsp","&#160;");
$twig->entity_list->add($entity);
$twig->parse($xml);

……但没有快乐.

请帮忙=)

解决方法

use strict;
use XML::Twig;

my $doctype = '<?xml version="1.0" encoding="utf-8"?><!DOCTYPE html [<!ENTITY nbsp "&#160;">]>';
my $xml = '<html><head><meta content="tidyp for Linux (v1.02),see www.w3.org" name="generator" /><title></title></head><body>foo &nbsp; bar</body></html>';

my $xTwig = XML::Twig->new();

$xTwig->safe_parse($doctype . $xml) or die "Failure to parse XML : $@";

print $xTwig->sprint();

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!