Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

How much XP until you pass your favorite monk

by Beatnik (Parson)
on Dec 09, 2001 at 21:02 UTC ( [id://130530]=CUFP: print w/replies, xml ) Need Help??

#!/usr/bin/perl use strict; use LWP::Simple; use CGI; my $cgi = CGI->new(); print $cgi->header; print $cgi->start_form(-method=>"GET"),"What is your nick? ",$cgi->tex +tfield('me'),$cgi->br; print "Who do you want to be?",$cgi->textfield('wannabe'),$cgi->br,$cg +i->submit(-value=>"Click"),$cgi->end_form; print $cgi->hr; my $me = $cgi->param("me"); my $wannabe = $cgi->param("wannabe"); if ($me && $wannabe) { my $xp = getxp($wannabe)-getxp($me); print $xp," XPs til $wannabe" if $xp > 0; print "You passed $wannabe by ",-$xp if $xp < 0; print "You are on same xp as $wannabe" if $xp == 0; } sub getxp { my $user = shift; my $page = get("http://www.perlmonks.org/index.pl?node=$user"); my ($xp) = $page =~ /<TR><TD>Experience:<\/TD><TD> <B>(\-?\d+)<\/B><\/ +TD><\/TR>/; return $xp; }
Oki, this may not be très cool but it can be handy. Demo is here. Check how many XPs til I reach level Vroom.
update: fixed stuff according to jcwren

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.

Replies are listed 'Best First'.
(jcwren) Re: How much XP until you pass your favorite monk
by jcwren (Prior) on Dec 09, 2001 at 23:11 UTC

    When I put in jcwren and tilly, I get the correct answer.

    When I put in jcwren and jcwren, I get no output at all (You have an assignment instead of a comparison on the test for 0).

    When I put in jcwren and discostu, I get my XP level, instead of my XP level - -53.

    --Chris

    e-mail jcwren

Re: How much XP until you pass your favorite monk
by rje (Deacon) on Dec 10, 2001 at 20:50 UTC
    3721 XPs til Beatnik

    Gads, I'll never catch up.

    :) Rob

      1000061 XPs til Vroom

      You think I will? :)
      Yes, this is my 500th node!
      I was planning something special, like an obfu, but what the heck. May the next 500 be as pleasant to post as the past one.

      Greetz
      Beatnik
      ... Quidquid perl dictum sit, altum viditur.
Re: How much XP until you pass your favorite monk
by ellem (Hermit) on Dec 23, 2001 at 04:40 UTC
    clap clap clap
    --
    lmoran@wtsg.com
    There's more than one way to do it, just don't use my way.
Re: How much XP until you pass your favorite monk
by naikonta (Curate) on Jun 07, 2007 at 05:37 UTC
    First of all, thanks for bringing the entertainment.

    The tags changed to:

    <tr> <td>Experience:</td> <td><b>1101</b></td> </tr>
    I made a little change to the script:
    #from my ($xp) = $page =~ /<TR><TD>Experience:<\/TD><TD> <B>(\-?\d+)<\/B><\/ #to my ($xp) = $page =~ /Experience:[^\d-]+(\-?\d+)/;
    Not that I care much, but....
    1006094 XPs til vroom
    How he got that much? :-) And no, I don't wanna be vroom.

    Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2024-03-19 07:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found