4
我试图使用XML序列化下面的数据结构使用自卸车错误的散列引用::自卸车XML ::在输出
'options_settings' => {
'telnet.distinct.enable' => {
'text' => 'Option telnet.distinct.enable needs to be set to \'on\' as of
workaround for Bug 476803',
'severity' => '7'
}
},
'EOS_details' => {
'338' => bless({
'info' => '<a href="https://support.netapp.com/info/communications/ECMP1110462.html " target="_blank"> CPC-0705-02 </a>',
'count' => '48',
'ASUP_id' => 'AE20121117202086',
'part' => 'ESH2 - X5511A-RC, X5511-RC-C',
'category' => 'I/O Module',
'EOS_date' => '06/02/2013',
'severity' => '8'
}, 'EOSObject'),
的问题是,当我分析它为XML和XML:自卸车它使用2个独立散列引用的相同内存地址:
<item key="338">
<hashref blessed_package="EOSObject" memory_address="0x295b5758">
<item key="ASUP_id">AE20121117165273</item>
<item key="EOS_date">06/02/2013</item>
<item key="category">I/O Module</item>
<item key="count">48</item>
<item key="info"><a href="https://support.netapp.com/info/communications/ECMP1110462.html " target="_blank"> CPC-0705-02 </a></item>
<item key="part">ESH2 - X5511A-RC, X5511-RC-C</item>
<item key="severity">8</item>
</hashref>
</item>
</hashref>
<item key="options_settings">
<hashref memory_address="0x295b5320">
<item key="telnet.distinct.enable">
<hashref memory_address="0x295b5758">
</hashref>
</item>
</hashref>
</item>
请注意memory_address =“0x295b5758”。
所以从读回文件时option_settings散列引用指向EOS对象:/
的是,在XML中的错误::自卸车还是我做错了什么?使用最新的XML :: Dumper 0.81
P.S. 我试图在主脚本之外重现它,它工作。 我仍然无法理解主要脚本中的数据如何被破坏。 这是其中使用XML ::自卸车的代码:
DEBUG("Before serialization: " . Data::Dumper::Dumper($result));
my $dump = new XML::Dumper;
my $dump_test = new XML::Dumper;
my $test_xml = $dump_test->pl2xml ($result);
DEBUG("After serialization in memory: " . Data::Dumper::Dumper($test_xml));
$dump->pl2xml($result, $filename);
结果被适当地打印出来。 “options_settings”是单独的条目。在$ test_xml中它已经与EOS_details混淆了
我是更大数据结构的一部分,我会尝试在我使用的主代码之外重现它 – user1847362
好的如果我在单独的脚本中使用它,它可以工作:/似乎是其他代码的问题... – user1847362
@ user1847362你最终发现问题的根源吗? – ddoxey