Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

RE: More tasty XML goodness

by mirod (Canon)
on Sep 16, 2000 at 00:41 UTC ( #32744=note: print w/ replies, xml ) Need Help??


in reply to More tasty XML goodness

And of course you can also use XML::Twig to get the same result:

#!/bin/perl -w use strict; use XML::Twig; my $posts= 0; my $rep=0; my $twig= new XML::Twig( TwigRoots => { NODE => sub { my( $t, $node)= @_; $posts++; $rep +=$_[1]->att( 'reputation'); $t->purge; } }); $twig->parsefile( $ARGV[0]); print "$posts posts, $rep rep, ", sprintf( "%5.2f", $rep/$posts), " a +verage\n";

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://32744]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (7)
As of 2016-07-29 07:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What is your favorite alternate name for a (specific) keyboard key?


















    Results (260 votes). Check out past polls.