how to read the value of specific tag within an xml using perl

Question

For the below check1.xml

<root>
  <setup name = "abc" version="1.1.1>
    <func>
       <comp name = "cba">
          <check>type</check>  
       </comp> 
    </func>
  </setup> 
</root>

i am able to extract the field content of comp using the below

my $lib = "check1.xml"; 
my $simple = XML::Simple->new();
my $tree = $simple->XMLin($lib);
print $tree->{setup}->{func}->{comp}->{name} ;

With this, i am able to print "cba" .I printed the $tree with the Dumper function to get the hash and i was able to construct the syntax to print the same.

However when i have multiple comp tags, i am having issues.

<root>
  <setup name = "abc" version="1.1.1">
    <func>
       <comp name = "cba">
          <check>type</check>  
       </comp> 
       <comp name = "cdf">
          <check>semi</check>  
       </comp> 
       <comp name = "mno">
          <check>auto</check>  
       </comp> 
       <comp name = "xyz">
          <check>manual</check>  
       </comp>     
    </func>
  </setup> 
</root>

How do i get the values here as when do i dump of the hash for this, i am not getting the same tag as i don't see any element i can access in the hash to get the info i need.

$VAR1 = {
          'setup' => {
                     'func' => {
                               'comp' => {
                                         'cdf' => {
                                                  'check' => 'semi'
                                                },
                                         'mno' => {
                                                  'check' => 'auto'
                                                },
                                         'cba' => {
                                                  'check' => 'type'
                                                },
                                         'xyz' => {
                                                  'check' => 'manual'
                                                }
                                       }
                             },
                     'name' => 'abc',
                     'version' => '1.1.1'
                   }
        };

I would like to extract the comp name values from the above hash to an array. Can someone give me some pointers here. i.e. get cdf, mno,xyz, cba...

As Grinnz says, don't use XML::Simple. I'm the author of XML::Simple and I agree it's terrible. I wrote this [guide to using XML::LibXML](http://grantm.github.io/perl-libxml-by-example/) to help people move away from XML::Simple. — Grant McLean, Mar 03 '20 at 08:46
Hi Grant, i checked your guide and it was very helpful. I could solve my issue using your examples. — pupil, Mar 17 '20 at 18:35

Grinnz · Answer 1 · 2020-03-02T23:48:05.120

This is a big reason why XML::Simple is discouraged. XML simply does not map usefully to Perl data structures, so a slight difference in returned XML requires a very different Perl data structure.

Instead an XML parser like XML::LibXML or Mojo::DOM can traverse and retrieve the data in a consistent way regardless of how many items you get back. Here is how you might approach this with Mojo::DOM:

use strict;
use warnings;
use Mojo::DOM;

my $xml = <<'XML';
<root>
  <setup name = "abc" version="1.1.1">
    <func>
       <comp name = "cba">
          <check>type</check>  
       </comp> 
       <comp name = "cdf">
          <check>semi</check>  
       </comp> 
       <comp name = "mno">
          <check>auto</check>  
       </comp> 
       <comp name = "xyz">
          <check>manual</check>  
       </comp>     
    </func>
  </setup> 
</root>
XML

my $dom = Mojo::DOM->new->xml(1)->parse($xml);
my $names = $dom->find('root > setup > func > comp')->map(attr => 'name');
print "$_\n" for @$names;

# equivalent, in more steps:
my $comps = $dom->find('root > setup > func > comp');
foreach my $comp (@$comps) {
  print $comp->attr('name'), "\n";
}

I used Grant examples and i was able to solve the problem. I tried your solution and it didn't work. sorry for the delayed response. — pupil, Mar 17 '20 at 18:36
The example is functional. I'm glad you got a working solution. — Grinnz, Mar 17 '20 at 18:43

score 1 · Answer 2 · answered Mar 03 '20 at 01:31

1

$tree->{setup}->{func}->{comp} is a hash reference where the name attributes are the keys, so

@comp_names = keys %{$tree->{setup}{func}{comp}};

answered Mar 03 '20 at 01:31

mob

117,087
18
149
283

It isn't when there's only one `comp` tag, which is the XML::Simple problem here. – Grinnz Mar 03 '20 at 16:21
True dat . . . . – mob Mar 03 '20 at 16:22
I used XML::LibXML perl package and it worked for me. – pupil Mar 17 '20 at 18:36

how to read the value of specific tag within an xml using perl

2 Answers2