Re: perl script to print xml data like this

I'm having a very hard time deciphering your question but I think you (may) want something like this. It does not keep the exact XML formatting but that is something that is lost when XML::Simple parses it.

use strict;
use warnings;

use XML::Simple;
my $xml = new XML::Simple;

my $data = $xml->XMLin( \*DATA );

my %by_code;
foreach my $dtc ( @{ $data->{DTC} } ) {
    push @{ $by_code{ $dtc->{TroubleCode} } }, $dtc;
}

foreach my $code ( sort { $a <=> $b } keys %by_code ) {
    print "trouble code: $code\n";
    print "description:\n";
    print map { $xml->XMLout( $_, RootName => 'DTC', NoAttr => 1, ) }
        @{ $by_code{$code} };
}

__DATA__
<xml>
    Removed by request.
</xml>
[download]

l8rZ,
--
andrew

Comment on Re: perl script to print xml data like this Download Code

Replies are listed 'Best First'.
Re^2: perl script to print xml data like this by veerubiji (Sexton) on Oct 04, 2011 at 08:28 UTC
Hi afreshl, thanks for your reply, and sorry for replying on both sites. because i cant post clearly there. `Argument "'\x{32}\x{30}..." isn't numeric in sort "` [download] at foreach my $code (sort....) line. i am getting this argument in th second for loop frist line and your code is working but i am getting XML data under description is not like original format, it displying in diffrent order bottom comments to up and upper comments to down.	[reply] [d/l]
Re^3: perl script to print xml data like this by afresh1 (Hermit) on Oct 04, 2011 at 17:43 UTC
The error does not occur with the sample so the actual xml is apparently different than what you provided. To get rid of the sorting error, just don't sort the output. `14 foreach my $code ( keys %by_code ) {` If you need the output exactly as it was, you will need to use a solution other than XML::Simple. As I said: It does not keep the exact XML formatting but that is something that is lost when XML::Simple parses it. l8rZ, -- andrew	[reply] [d/l]
Re^4: perl script to print xml data like this by veerubiji (Sexton) on Oct 05, 2011 at 07:16 UTC
thanks for your reply and suggestion i got my answer.	[reply]
Re^2: perl script to print xml data like this by veerubiji (Sexton) on Oct 06, 2011 at 18:37 UTC
	[reply]
Re^3: perl script to print xml data like this by afresh1 (Hermit) on Oct 06, 2011 at 20:19 UTC
Done. l8rZ, -- andrew	[reply]
Re^4: perl script to print xml data like this by veerubiji (Sexton) on Oct 07, 2011 at 07:33 UTC
Thank you very much.	[reply]