
babp
New User
Apr 6, 2010, 12:00 AM
Post #1 of 5
(5032 views)
|
How to get input xml file as XMLout. output.
|
Can't Post
|
|
Hi , I am trying to get an reference of a XML formatted data using XML::Simple::XMLin and again trying to retrive the XML data as it was before using XML::Simple::XMLout. But finding a deviation in the format can any pls help me out. Input file sr.xml =========== <?xml version="1.0" encoding="ISO-8859-1" ?> <scenario> <counter> <counterdef name="HbH-counter" init="1000"> </counterdef> <counterdef name="EtE-counter" init="2000"> </counterdef> <counterdef name="session-counter" init="10005"> </counterdef> </counter> </scenario> perl code ======= my $data=''; $file_to_parse='sr.xml'; my $xml = new XML::Simple; my $config = eval { XML::Simple::XMLin("$file_to_parse") }; $data = $xml->XML::Simple::XMLin("$file_to_parse",keeproot => 1); print $xml->XMLout($data,outputfile =>'/var/tmp/Call',keeproot => 1); outputfile('/var/tmp/Call') ================== <scenario> <counter name="counterdef"> <EtE-counter init="2000" /> <HbH-counter init="1000" /> <session-counter init="10005" /> </counter> </scenario> My expectation was as it was before : <?xml version="1.0" encoding="ISO-8859-1" ?> <scenario> <counter> <counterdef name="HbH-counter" init="1000"> </counterdef> <counterdef name="EtE-counter" init="2000"> </counterdef> <counterdef name="session-counter" init="10005"> </counterdef> </counter> </scenario>
|