PROSAGA码农传奇-perl-为什么不鼓励使用XML

真正的问题是，XML::Simple主要尝试做的是采用XML，并将其表示为perl数据结构。

毫无疑问，您会从perldata两个关键数据结构中了解到hash和array。

数组是有序标量。
哈希是无序的键值对。
XML也不是真的。它具有以下元素：

非唯一名称（这意味着哈希值不适合）。
....但在文件中被“排序”。
可能具有属性（您可以将其插入到哈希中）
可能有内容（但可能没有，但可能是一元标记）
可能有孩子（任何深度）
而且这些东西并不能直接映射到可用的perl数据结构-在简单化的级别上，可能适合嵌套的哈希散列-但是它不能处理具有重复名称的元素。您也无法轻松地区分属性和子节点。

因此，XML::Simple尝试基于XML内容进行猜测，并从各种选项设置中获取“提示”，然后当您尝试输出内容时，它（尝试）反向应用相同的过程。

结果，对于最简单的 XML 以外的任何东西，它充其量都变得笨拙，或者最坏的情况下丢失了数据。

考虑：

```
<xml>
   <parent>
       <child att="some_att">content</child>
   </parent>
   <another_node>
       <another_child some_att="a value" />
       <another_child different_att="different_value">more content</another_child>
   </another_node>
</xml>
```
这-通过解析可以XML::Simple为您提供：

```
$VAR1 = {
          'parent' => {
                      'child' => {
                                 'att' => 'some_att',
                                 'content' => 'content'
                               }
                    },
          'another_node' => {
                            'another_child' => [
                                               {
                                                 'some_att' => 'a value'
                                               },
                                               {
                                                 'different_att' => 'different_value',
                                                 'content' => 'more content'
                                               }
                                             ]
                          }
        };
```

注意-现在您有parent-匿名哈希，但下面another_node有一系列匿名哈希。

因此为了访问以下内容child：

`my $child = $xml -> {parent} -> {child} -> {content};`
请注意，您如何获得一个“子”节点，并在其下具有一个“内容”节点，这并不是因为它是...内容。

但是要访问第一个another_child元素下面的内容：

`my $another_child = $xml -> {another_node} -> {another_child} -> [0] -> {content};`
请注意-由于具有多个<another_node>元素，因此XML被解析为一个数组，而不是一个数组。（如果您确实content在其下调用了一个元素，那么您最终还会得到其他东西）。您可以通过使用来更改它，ForceArray但是最后得到的是散列数组的散列散列数组的散列-尽管它在处理子元素方面至少是一致的。编辑：注意，下面的讨论-这是一个错误的默认设置，而不是XML :: Simple的缺陷。

您应该设置：

`ForceArray => 1, KeyAttr => [], ForceContent => 1`
如果将其应用于上述XML，则会得到：

```
$VAR1 = {
          'another_node' => [
                            {
                              'another_child' => [
                                                 {
                                                   'some_att' => 'a value'
                                                 },
                                                 {
                                                   'different_att' => 'different_value',
                                                   'content' => 'more content'
                                                 }
                                               ]
                            }
                          ],
          'parent' => [
                      {
                        'child' => [
                                   {
                                     'att' => 'some_att',
                                     'content' => 'content'
                                   }
                                 ]
                      }
                    ]
        };
```
这将为您提供一致性，因为您将不再拥有单节点元素，而处理方式却不同于多节点。

但是您仍然：

拥有5棵参考深树以获取价值。
例如：

`print $xml -> {parent} -> [0] -> {child} -> [0] -> {content};`
您仍然将hash content和childhash元素视为属性，并且由于哈希是无序的，因此您根本无法重构输入。因此，基本上，您必须对其进行解析，然后进行遍历Dumper以找出需要查找的位置。

但是通过xpath查询，您可以通过以下方式到达该节点：

`findnodes("/xml/parent/child"); `
您从事的工作没有得到XML::Simple什么XML::Twig（我XML::LibXML想是，但我不太了解）：

xpath支持。xpath是表示节点路径的XML方式。因此，您可以使用来在上面找到一个节点get_xpath('//child')。您甚至可以在xpath-中使用属性，例如- get_xpath('//another_child[@different_att]')会准确选择您想要的属性。（您也可以迭代比赛）。
cut并paste移动元素
parsefile_inplace允许您XML使用就地编辑进行修改。
pretty_print选项，以格式化XML。
twig_handlers和purge-它允许您处理非常大的XML而无需加载所有在内存中。
simplify如果您真的必须使其与向后兼容XML::Simple。
与尝试遵循对哈希和数组的引用的菊花链相比，该代码通常更简单，由于结构上的根本差异，该代码无法始终如一地完成。
它也广泛可用-易于从中下载CPAN，并作为可安装软件包分发在许多操作系统上。（遗憾的是，这不是默认安装。）

请参阅：XML :: Twig快速参考

为了比较：

```
my $xml = XMLin( \*DATA, ForceArray => 1, KeyAttr => [], ForceContent => 1 );

print Dumper $xml;
print $xml ->{parent}->[0]->{child}->[0]->{content};
VS.

my $twig = XML::Twig->parse( \*DATA );
print $twig ->get_xpath( '/xml/parent/child', 0 )->text;
```

为什么不鼓励使用XML :: Simple？