CUFP
Beatnik
<CODE>#!/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->textfield('me'),$cgi->br;
print "Who do you want to be?",$cgi->textfield('wannabe'),$cgi->br,$cgi->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;
}</CODE>
Oki, this may not be <I>très</I> cool but it can be handy. Demo is <A HREF="http://beatnik.perlmonk.org/cgi-bin/monkdiff.pl">here</A>. <A HREF="http://beatnik.perlmonk.org/cgi-bin/monkdiff.pl?me=Beatnik&wannabe=Vroom">Check how many XPs</A> til I reach level [Vroom].
<BR><B>update:</b> fixed stuff according to [jcwren]
<BR><BR>Greetz<BR>
Beatnik<BR>
... Quidquid perl dictum sit, altum viditur.