perl – XML :: Dumper在输出中使用错误的哈希引用
发布时间:2020-12-16 06:15:22 所属栏目:大数据 来源:网络整理
导读:我正在尝试使用 XML :: Dumper序列化以下数据结构 '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' = { '33
我正在尝试使用
XML :: Dumper序列化以下数据结构
'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:Dumper它使用相同的内存地址进行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 :: Dumper中的错误还是我做错了什么?使用最新的XML :: Dumper 0.81 附: 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混淆了 解决方法
我试图复制你的问题而没有任何成功.
#!/usr/bin/perl -Tw use strict; use warnings; use XML::Dumper; my $eos = 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,'severity' => '8' },'EOSObject'; my %data = ( '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 => $eos } ); print pl2xml( %data ); 我的程序的输出: <perldata> <hashref memory_address="0x253fb18"> <item key="EOS_details"> <hashref memory_address="0x2517e08"> <item key="338"> <hashref blessed_package="EOSObject" memory_address="0x24f9998"> <item key="ASUP_id">AE20121117202086</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> <item key="options_settings"> <hashref memory_address="0x2517688"> <item key="telnet.distinct.enable"> <hashref memory_address="0x2517598"> <item key="severity">7</item> <item key="text">Option telnet.distinct.enable needs to be set to 'on' as of workaround for Bug 476803</item> </hashref> </item> </hashref> </item> </hashref> </perldata> 我倾向于认为你的计划有些不对劲. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |