如何在Perl中访问一个哈希中的值，而这些值本身又是键值对。

huangapple
go评论86阅读模式
英文:

how to access values of a hash which are again a key, value pairs in perl

问题

I have a hash like below, I need to access it and put that info in an xml. I couldn't access properly. I am facing difficulty in understanding and using hash datatype.

Hash that needs to be referred:

  1. $VAR1 = {
  2.           'state1' => {
  3.                         'code' => '328',
  4.                         'num' => '179237'
  5.                       },
  6.           'state2' => {
  7.                         'code' => '987',
  8.                         'num' => '0.8736'
  9.                       },
  10.           'state3' => {
  11.                         'code' => '326',
  12.                         'num' => '582048'
  13.                       }
  14.         };

The xml format I need it to be written is:

  1. <Root>
  3.  <Info>
  4.   <statename>state1</statename>
  5.   <code>328<code>
  6.   <num>179237<num>
  7.   </Info>
  9.  <Info>
  10.   <statename>state2</statename>
  11.   <code>987<code>
  12.   <num>0.8736<num>
  13.  </Info>
  15. <Info>
  16.   <statename>state3</statename>
  17.   <code>326<code>
  18.   <num>582048<num>
  19.  </Info>
  20.  
  21. </Root>

I need to use XML::LibXML lib. Apologies for not posting the attempted codes from my end. Since I need it immediately and I am slow at accessing hashes, I am unable to provide any proper working code. Please help. 如何在Perl中访问一个哈希中的值，而这些值本身又是键值对。

  1. $size = keys %my_hash; 
  2. for (my $i=0; $i<=$size; $i++){
  3.  my $tags = $doc->createElement('Info');
  4.  my %tags = 
  5.    statename => 
  6.    code =>
  7.    num => 
  8. }
  10. for my $state_name (sort keys %my_hash){
  11.  my $state_tag = $doc->createElement ($statename);
  12.  my $codetag->appendTextNode($code);
  13.  $num = ->appendChild($statetag) 
  14. }

Please also point to any documentation to learn from beginning to access hashes and use in XMLs.

英文:

I have a hash like below, I need to access it and put that info in an xml. I couldn't access properly. I am facing difficulty in understanding and using hash datatype.
Hash that needs to be referred :

  1. $VAR1 = {
  2.           &#39;state1&#39; =&gt; {
  3.                         &#39;code&#39; =&gt; &#39;328&#39;,
  4.                         &#39;num&#39; =&gt; &#39;179237&#39;
  5.                       },
  6.           &#39;state2&#39; =&gt; {
  7.                         &#39;code&#39; =&gt; &#39;987&#39;,
  8.                         &#39;num&#39; =&gt; &#39;0.8736&#39;
  9.                       },
  10.           &#39;state3&#39; =&gt; {
  11.                         &#39;code&#39; =&gt; &#39;326&#39;,
  12.                         &#39;num&#39; =&gt; &#39;582048&#39;
  13.                       }
  14.         };

The xml format I need it to be written is

  1. &lt;Root&gt;
  3.  &lt;Info&gt;
  4.   &lt;statename&gt;state1&lt;/statename&gt;
  5.   &lt;code&gt;328&lt;code&gt;
  6.   &lt;num&gt;179237&lt;num&gt;
  7.   &lt;/Info&gt;
  9.  &lt;Info&gt;
  10.   &lt;statename&gt;state2&lt;/statename&gt;
  11.   &lt;code&gt;987&lt;code&gt;
  12.   &lt;num&gt;0.8736&lt;num&gt;
  13.  &lt;/Info&gt;
  15. &lt;Info&gt;
  16.   &lt;statename&gt;state3&lt;/statename&gt;
  17.   &lt;code&gt;326&lt;code&gt;
  18.   &lt;num&gt;582048&lt;num&gt;
  19.  &lt;/Info&gt;
  20.  
  21. &lt;/Root&gt;

I need to use XML::LibXML lib, Apologies for not posting the attempted codes from my end. Since I need it immediately and I am slow at accessing hashes, I am unable to provide any proper working code. Please help. 如何在Perl中访问一个哈希中的值，而这些值本身又是键值对。

  1. $size = keys %my_hash; 
  2. for(my $i=0; $&lt;=$size;$i++){
  3.  my $tags = $doc-&gt;createElement(&#39;Info&#39;);
  4.  my %tags = 
  5.    statename =&gt; 
  6.    code =&gt;
  7.    num =&gt; 
  8. }
  10. for my $state_name (sort keys %my_hash){
  11.  my $state_tag = $doc-&gt;createElement ($statename);
  12.  my $codetag-&gt;appendTextNode($code);
  13.  $num = -&gt;appendChild($statetag) 
  14. }

Please also point to any documentation to learn from beginning to access hashes and use in xmls.

答案1

得分: 4

  1. #! /usr/bin/perl
  2. use warnings;
  3. use strict;
  5. use XML::LibXML;
  7. my %hash = ('state1' => {
  8.                 'code' => '328',
  9.                 'num' => '179237'
  10.             },
  11.             'state2' => {
  12.                 'code' => '987',
  13.                 'num' => '0.8736'
  14.             },
  15.             'state3' => {
  16.                 'code' => '326',
  17.                 'num' => '582048'
  18.             });
  20. my $dom = 'XML::LibXML::Document'->new('1.0', 'UTF-8');
  21. $dom->setDocumentElement(my $root = $dom->createElement('root'));
  23. for my $state (sort keys %hash) {
  24.     my $info = $root->addNewChild("", 'Info');
  25.     $info->addNewChild("", 'statename')->appendText($state);
  26.     for my $key (qw( code num )) {
  27.         $info->addNewChild("", $key)->appendText($hash{$state}{$key});
  28.     }
  29.     $info->appendText("\n");
  30. }
  31. print $dom;
英文: 
  1. #! /usr/bin/perl
  2. use warnings;
  3. use strict;
  5. use XML::LibXML;
  7. my %hash = (&#39;state1&#39; =&gt; {
  8.                 &#39;code&#39; =&gt; &#39;328&#39;,
  9.                 &#39;num&#39; =&gt; &#39;179237&#39;
  10.             },
  11.             &#39;state2&#39; =&gt; {
  12.                 &#39;code&#39; =&gt; &#39;987&#39;,
  13.                 &#39;num&#39; =&gt; &#39;0.8736&#39;
  14.             },
  15.             &#39;state3&#39; =&gt; {
  16.                 &#39;code&#39; =&gt; &#39;326&#39;,
  17.                 &#39;num&#39; =&gt; &#39;582048&#39;
  18.             });
  20. my $dom = &#39;XML::LibXML::Document&#39;-&gt;new(&#39;1.0&#39;, &#39;UTF-8&#39;);
  21. $dom-&gt;setDocumentElement(my $root = $dom-&gt;createElement(&#39;root&#39;));
  23. for my $state (sort keys %hash) {
  24.     my $info = $root-&gt;addNewChild(&quot;&quot;, &#39;Info&#39;);
  25.     $info-&gt;addNewChild(&quot;&quot;, &#39;statename&#39;)-&gt;appendText($state);
  26.     for my $key (qw( code num )) {
  27.         $info-&gt;addNewChild(&quot;&quot;, $key)-&gt;appendText($hash{$state}{$key});
  28.     }
  29.     $info-&gt;appendText(&quot;\n&quot;);
  30. }
  31. print $dom;

huangapple
  • 本文由 发表于 2023年2月13日 23:40:34
  • 转载请务必保留本文链接：https://go.coder-hub.com/75438088.html
  • hash
  • perl
  • xml
  • xml-libxml
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定