Perl反序列化XML
|
我有这样的XML文件(某些应用程序的输出):
<data>
<call function=\"get_user_data\">
<output>
<integer name=\"my_id\" value=\"-31\" />
<string name=\"login\" value=\"root\" />
<integer name=\"ip_list\" value=\"2\" />
<array name=\"i\">
<item>
<ip_address name=\"user_ip\" value=\"0.0.0.0\" />
<ip_address name=\"user_mask\" value=\"0.0.0.0\"/>
</item>
<item>
<ip_address name=\"user_ip\" value=\"94.230.160.230\" />
<ip_address name=\"user_mask\" value=\"255.255.255.0\"/>
</item>
</array>
<integer name=\"modules\" value=\"2\" />
<array name=\"i\">
<item>
<string name=\"module_name\" value=\"core\" />
</item>
<item>
<string name=\"module_name\" value=\"devices\" />
</item>
</array>
<integer name=\"addition_modules\" value=\"0\"/>
<array name=\"i\"/>
</output>
</call>
</data>
我需要为这个perl结构解析它:
$data = {
my_id => -31,
login => \"root\",
ip_list => [
{
user_ip => \"0.0.0.0\",
user_mask => \"0.0.0.0\"
},
{
user_ip => \"94.230.160.230\",
user_mask => \"255.255.255.0\"
}
],
modules => [
{
module_name => \"core\"
},
{
module_name => \"devices\"
}
],
addition_modules => []
}
请帮助我,做到这一点!
没有找到相关结果
已邀请:
1 个回复
仿普