How to read a value from an XML tag

[sakshismriti]

I have the following XML file and am able to read the entire file and all tags.

The problem is how to read the main value \
there is only one contact with main=true.

How do I the value of main from the tag <Contact main="true">

<Contacts>
         <Contact main="true">
               <Firstname>Sandy</Firstname>     
               <Email>[e-mail]</Email>
        </Contact>
        <Contact main="false">
               <Firstname>Sandra</Firstname>     
               <Email>[e-mail]</Email>
        </Contact>
        <Contact main="false">
               <Firstname>Peter</Firstname>     
               <Email>[e-mail]</Email>
        </Contact>
 
</Contacts>

This is the code snippet:

my $contacts_node = $root->child("Contacts");
 
    my @contact_list = $contacts_node->child("Contact");
 
    # extract the contact from the contacts collection
    foreach my $contact_node (@contact_list) {
        foreach my $contact ($contact_node) {
            my $first_name_node = $contact->child("Firstname");
    }
}

[toolic]

use strict;
use warnings;
use XML::Twig;
 
my $xml = <<'XML';
<Contacts> 
         <Contact main="true"> 
               <Firstname>Sandy</Firstname>      
               <Email>[e-mail]</Email> 
        </Contact> 
        <Contact main="false"> 
               <Firstname>Sandra</Firstname>      
               <Email>[e-mail]</Email> 
        </Contact> 
        <Contact main="false"> 
               <Firstname>Peter</Firstname>      
               <Email>[e-mail]</Email> 
        </Contact> 
 
</Contacts> 
XML
 
my $t = XML::Twig->new();
$t->parse($xml);
 
for my $cont ($t->root()->children('Contact')) {
    print $cont->att('main'), ' ', 
          $cont->first_child('Firstname')->text(), "\n";
}
 
__END__
 
true Sandy
false Sandra
false Peter
 

[sakshismriti]

Hi,

I have got the solution to it, the keyword attribute is used to read the attribute from an XML tag:

my $contact_main_attribute = $contact_node->attribute("main");
 

Thanks a lot for the answer, however I am using XML::Simple I should have mentioned it earlier.

This is the complete solution to read the XML given in the question alowg with the attributes using XML::Simple.

 my $contacts_node = $root->child("Contacts");
 
 my @contact_list = $contacts_node->child("Contact");
 
 # extract the contact from the contacts collection
    foreach my $contact_node (@contact_list) {
         my $contact_main_attribute = $contact_node->attribute("main");
         foreach my $contact ($contact_node) {
             my $first_name_node = $contact->child("Firstname");
       }
   }
 
 

Regards,
Sakshi