Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

More tasty XML goodness

by vroom (Pope)
on Sep 15, 2000 at 20:13 UTC ( #32737=monkdiscuss: print w/replies, xml ) Need Help??

Now you can grab User nodes info xml generator to find out all the reputation, node_id, title, and createtime information for all of your nodes.

vroom | Tim Vroom | vroom@cs.hope.edu

Replies are listed 'Best First'.
RE: More tasty XML goodness
by mirod (Canon) on Sep 15, 2000 at 20:41 UTC

    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";
RE: More tasty XML goodness
by mirod (Canon) on Sep 15, 2000 at 20:24 UTC

    If you have XML::PYX installed you can then run this:

    pyx pm.xml | perl -n -e 'if( /^Areputation (\d+)/) { $rep+=$1;$posts++ +;} \ END { print "$posts posts, $rep rep, ", sprintf( "%5.2f", $rep/$posts) +, " average\n";}'

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2019-06-17 17:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Is there a future for codeless software?



    Results (80 votes). Check out past polls.

    Notices?
    • (Sep 10, 2018 at 18:53 UTC) Welcome new users!