greatshots has asked for the wisdom of the Perl Monks concerning the following question:
monks,
UPDATE: 1 added more information with the code.
UPDATE: 2 added working code.
From the above XML file<level label="SGSN"> <level label="Nokia"> <level label="Card"> <report-def-ref default-operation="unspecified" /> <report-def-ref default-operation="unspecified" /> </level> <level label="Destination Point"> <report-def-ref default-operation="unspecified" /> </level> <level label="IP Interface"> <report-def-ref default-operation="unspecified" /> <report-def-ref default-operation="unspecified" /> </level> <level label="Link Timeslot"> <report-def-ref default-operation="unspecified" /> </level> <level label="Processor"> <report-def-ref default-operation="unspecified"/> </level> <level label="SCP Address"> <report-def-ref default-operation="unspecified"/> </level> <level label="SUB-TREE"> <level label="Three"> <report-def-ref default-operation="unspecified" /> <report-def-ref default-operation="unspecified" /> </level> <level label="Four"> <report-def-ref default-operation="unspecified" /> <report-def-ref default-operation="unspecified" /> </level> </level> </level>
I would like to get the output like below:- SGSN.Nokia.Card SGSN.Nokia.Destination Point SGSN.Nokia.IP Interface SGSN.Nokia.Link Timeslot SGSN.Nokia.Processor SGSN.Nokia.SCP Address SGSN.SUB-TREE.Three SGSN.SUB-TREE.Four
UPDATE: 1 added more information with the code.
UPDATE: 2 added working code.
someone can advise me on making it simpler to traverse the datastructure. I am interested in a tag called 'level' and its 'label'.#!/usr/bin/perl my $file = "layer.xml"; use XML::Simple; use Data::Dumper; die "Can't find file \"$file\"" unless -f $file; $xml = new XML::Simple(); print "Input file :$file:\n"; # read XML file $data = $xml->XMLin("/apps/inst1/metrica/anthony/3G_SGSN_SGN3/tools/$f +ile"); foreach $keys ( keys %$data ) { next if ( $keys !~ /level/ ); $one = $$data{$keys}{label}; foreach $keys1 ( keys %{$$data{$keys}{level}} ) { $two = $$data{$keys}{level}{label}; foreach $element ( @{$$data{$keys}{level}{$keys1}} ) { print "$one->$two->$$element{label}:\n"; } } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: getting required format output from a xml file
by Corion (Patriarch) on Nov 08, 2006 at 09:08 UTC | |
Re: getting required format output from a xml file
by Hofmator (Curate) on Nov 08, 2006 at 10:27 UTC |
Back to
Seekers of Perl Wisdom