in reply to Finding max value from a unique tag from XML
#!/usr/bin/perl use strict; use warnings; use XML::Rules; my $xml = <<'XML'; <all> <doc> <date name="processingtime">2011-04-09T11:12:22.049Z</date> <str name="docuid">121422</str> <str name="title">ABC</str> </doc> <doc> <date name="processingtime">2012-04-09T11:12:22.049Z</date> <str name="docuid">13427</str> <str name="title">CDE</str> </doc> <doc> <date name="processingtime">2010-04-09T11:12:22.049Z</date> <str name="docuid">89822</str> <str name="title">LKK</str> </doc> </all> XML my @rules = ( 'str' => 'as array', 'date' => 'as is', 'doc' => 'as array no content', 'all' => 'no content' ); my $parser = XML::Rules->new(rules => \@rules); my $data = $parser->parse( $xml ); my $max_value = 0; for my $chunk ( @{ $data->{all}{doc} } ) { for my $str ( @{ $chunk->{str} } ) { $str->{name} eq 'docuid' and $str->{_content} > $max_value and $max_value = $str->{_content}; } } print "The max value is: $max_value\n";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Finding max value from a unique tag from XML
by Jenda (Abbot) on Nov 25, 2012 at 03:46 UTC | |
by vagabonding electron (Curate) on Nov 26, 2012 at 18:36 UTC | |
by afoken (Chancellor) on Nov 26, 2012 at 19:32 UTC | |
by vagabonding electron (Curate) on Nov 29, 2012 at 16:37 UTC |