#!/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.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|