如何从变量解析 XML？

Question

如何用 Perl 解析 XML 中的变量？

我从我的 URL 编码数据库中获取，继续进行 URL 解码，得到一个 XML 文档。

我需要解析这个 XML。

希望我清楚

<?xml version="1.0" encoding="UTF-8"?>
<tag>
   <field type="tag">
      <content>
         <it>Ristoranti e Pizzerie</it>
         <de>Restaurants und Pizzeria</de>
         <en>Restaurants and pizzerias</en>
      </content>
      <valore>TAG14</valore>
   </field>
   <field type="tag">
      <content>
         <it>Bar, Pub ed Enoteche</it>
         <de>Bar, Pub und Enotheken</de>
         <en>Bars, pubs and wine store</en>
      </content>
      <valore>TAG15</valore>
   </field>
</tag>

Answer 1

很难知道问题出在哪里

两个最流行的高质量 XML 模块是 XML::Twig 和 XML::LibXML。下面的程序使用 both 从您的问题中解析相同的 XML 数据

请注意，您将只使用一个模块或另一个；不是都像这里

use strict;
use warnings 'all';

use XML::Twig;
## OR
use XML::LibXML;

my $tag = <<END_XML;
<?xml version="1.0" encoding="UTF-8"?>
<tag>
   <field type="tag">
      <content>
         <it>Ristoranti e Pizzerie</it>
         <de>Restaurants und Pizzeria</de>
         <en>Restaurants and pizzerias</en>
      </content>
      <valore>TAG14</valore>
   </field>
   <field type="tag">
      <content>
         <it>Bar, Pub ed Enoteche</it>
         <de>Bar, Pub und Enotheken</de>
         <en>Bars, pubs and wine store</en>
      </content>
      <valore>TAG15</valore>
   </field>
</tag>
END_XML

my $twig = XML::Twig->new;
$twig->parse($tag);

## OR

my $doc = XML::LibXML->load_xml(string => $tag);