Yes you can do it by XML::Simple, take a look below
use strict; use warnings; use XML::Simple; use Data::Dumper; my $xml = q~<?xml version="1.0" encoding="utf-8" ?> <Config type="Tabs"> <Core active="true"> <CategoryID>a</CategoryID> </Core> <ShoeBank> <default>1</default> <Shoe> <Name>a</Name> <Image>a.jpg</Image> <MainClip>a.swf</MainClip> <ShoeConfigXML>a.xml</ShoeConfigXML> </Shoe> <Shoe> <Name>b</Name> <Image>b.jpg</Image> <MainClip>b.swf</MainClip> <ShoeConfigXML>b.xml</ShoeConfigXML> </Shoe> </ShoeBank> </Config>~; print $xml,$/; my $data = XMLin($xml); print Dumper( $data ); foreach my $test (@{$data->{ShoeBank}{Shoe}}){ print"Name:$test->{Name} \n"; }
Output:
Name:a
Name:b
In reply to Re: Problem with parsing an XML using XML::Simple
by Nikhil Jain
in thread Problem with parsing an XML using XML::Simple
by Sidd
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |