Re^6: Is there any XML reader like this? (XML::Simple beats LibXML hands down in the speed stakes!)

[BrowserUk]

in reply to Re^5: Is there any XML reader like this? (XML::Simple beats LibXML hands down in the speed stakes!)
in thread Is there any XML reader like this?

Sorry, they are the same scripts as published earlier in the thread with the addition of a couple of timing points.

But here ya go. Using LibXML:

#! perl -slw
use strict;
use Data::Dump qw[ pp ];
use Time::HiRes qw[ time ];
use XML::LibXML;

open XML, '<', $ARGV[0] or die $!;

my $start = time;
my $root = XML::LibXML->load_xml( IO => \*XML )->documentElement;

printf "Parsing took %.6f seconds\n", time - $start;
my $start2 = time;

for my $station ($root->findnodes('*')) {
    my $x = $station->nodeName;
    for my $ip ( $station->findnodes('ip') ) {
        $x = $ip->textContent;
    }
}

printf "Iteration took %.6f seconds\n", time - $start2;
printf "Total took %.6f seconds\n", time - $start;
printf 'Check mem:'; <STDIN>;

And XML::Simple:

#! perl -slw
use strict;
use Data::Dump qw[ pp ];
use Time::HiRes qw[ time ];
use XML::Simple;

open XML, '<', $ARGV[0] or die $!;

my $start = time;
my $stations = XMLin( \*XML, ForceArray => [ 'ip'], NoAttr => 1 );

printf "Parsing took %.6f seconds\n", time - $start;
my $start2 = time;

for my $station ( keys %$stations ) {
    my $x = $station;
    for my $ip ( @{ $stations->{ $station }{ip} } ) {
        $x = $ip;
    }
}

printf "Iteration took %.6f seconds\n", time - $start2;
printf "Total took %.6f seconds\n", time - $start;
printf 'Check mem:'; <STDIN>;

[tobyink]

The LibXML example uses findnodes which is an XPath query. XPath, while extremely powerful, is not necessarily the most speedy solution, and it's not an especially fair comparison to the XML::Simple example. Replacing findnodes calls with getChildrenByTagName (the rest of the code can remain unchanged) speeds up the iteration tenfold. I get:

[tai@miranda (pts/0) libxml]$ perl orig.pl junk.xml
Parsing took 0.077047 seconds
Iteration took 6.021286 seconds
Total took 6.098525 seconds
[tai@miranda (pts/0) libxml]$ perl new.pl junk.xml
Parsing took 0.105245 seconds
Iteration took 0.631286 seconds
Total took 0.736719 seconds