Perl XML::Simple parse simple xml file

用Perl解析xml文件，又不想下载其它模块如Dom，可以用XML::Simple来完成这个任务。

实际工作中用到的几个有用的属性：

1. KeepRoot => 1
生成的hash中显示根节点，否则从下一层节点开始显示。

2. ForceContent => 1
生成的hash中以hash结构保存节点值，如：
nodename => { content => 'value' }
否则显示为：
nodename => 'value'

3. ForceArray => ['nodename1','nodename2']
所有以此开始的节点都用array ref的形式表示，在不使用这个属性的时候，如果是单个节点，则以hash ref的形式表示。如：
<node>
    <test>this is test</test>
</node>

使用属性：
node => [ test => 'this is test' ]

不使用属性：
node => { test => 'this is test' }


其它属性可以参考Perldoc文档。

如下是一个例子，使用以上所有属性。
--------------------------------------------------------------------------------
use Data::Dumper;
use XML::Simple;

my $dict = <<END;
<security>
    <itemaction  action='delete'>
        <test1 test="abc" asf='asdfa'>testing12</test1>
        <abc>
            <test2 test="abc">testing13</test2>
            <test3 test="abc">testing14</test3>                   
        </abc>
    </itemaction>
</security>
END

my $x = XMLin($dict, ForceContent => 1, ForceArray => ['itemaction']);
print Dumper $x

输出：
--------------------------------------------------------------------------------
$VAR1 = {
          'itemaction' => [
                          {
                            'abc' => {
                                     'test3' => {
                                                'test' => 'abc',
                                                'content' => 'testing14'
                                              },
                                     'test2' => {
                                                'test' => 'abc',
                                                'content' => 'testing13'
                                              }
                                   },
                            'test1' => {
                                       'test' => 'abc',
                                       'asf' => 'asdfa',
                                       'content' => 'testing12'
                                     },
                            'action' => 'delete'
                          }
                        ]
        };