Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

How much XP until you pass your favorite monk

by Beatnik (Parson)
on Dec 09, 2001 at 21:02 UTC ( #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("$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

... 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.


    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.

      ... 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
    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?

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://130530]
Approved by root
[tye]: 1) The python stack traces show you the names of variables, not the values of variables. Almost never informative.
[LanX]: do you have a py job now?
[tye]: Right now I have errors trying to fetch stuff from graphite. It says 'apps not ready, check startup logs'. I eventually find the startup logs and see 'no apps found'. Looking for fixes to this problem...
[LanX]: no idea ... ask py monks! ;-p
[tye]: it turns out that this can be caused by almost anything going wrong. If you want to know what caused the problem, you have to try to load each app by-hand to see what problems it is having, because none of those will be logged.
[tye]: No, I write more Perl than py at work. But I have to deal with plenty of py things.
[tye]: py monks would just be offended.
[Corion]: ;)
[Corion]: Hi tye btw ;)
[Corion]: I found plenty of not chatty enough logs with Perl too ... I'm slowly coming to appreciate Log::Log4perl resp. our homegrown alternative

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (8)
As of 2017-09-21 20:13 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (252 votes). Check out past polls.