#!/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.