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.#!/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; }
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 | |
Re: How much XP until you pass your favorite monk
by rje (Deacon) on Dec 10, 2001 at 20:50 UTC | |
by Beatnik (Parson) on Dec 10, 2001 at 20:52 UTC | |
Re: How much XP until you pass your favorite monk
by ellem (Hermit) on Dec 23, 2001 at 04:40 UTC | |
Re: How much XP until you pass your favorite monk
by naikonta (Curate) on Jun 07, 2007 at 05:37 UTC |
Back to
Cool Uses for Perl