perl 读取xml
<Dirs>
<Dir name="RecipeDir" href="\\ab\c"/>
<Dir name="WorkDir" href=""/>
<Dir name="InputDataDir" path="\\ab\c" href="it-IT"/>
</Dirs>
被读为
'Dirs' => {
'Dir' => {
'RecipeDir' => {
'href' => ''\\ab\c'
},
'WorkDir' => {
'href' => ''
},
'InputDataDir' => {
'href' => 'it-IT',
'path' => '\\ab\c'
}
}
},
如果我希望是
'Dirs' => {
'Dir' =>[
{
'name' => 'RecipeDir'
'href' => '\\ab\c'
},
{
'name' => 'WorkDir'
'href' => ''
},
{
'name' => 'InputDataDir'
'href' => 'it-IT',
'path' => '\\ab\c'
}
]
},