(jeffa) Re: When Make New Level, Do...

in reply to When Make New Level, Do...

Not a bad idea ... but why not just write a Perl script that downloads your home node, parses out your current experience and sends you a /msg. How about one that keeps track of new additions to Saints in our Book and /msg's them with a congradulation. Remember, this is Perl Monks - we can make our own bells and whistles for the site. ;)

Update:
Here is some code to get you going ... check out Personal Nodelet Extractor for some example code to log you in and post a message ... oh, and you might want to utilize an HTML Parser instead of using that fragile regex.

use strict;
use warnings;

use LWP::Simple;

my $node = shift or die 'gimme a node #';
my $html = get("http://www.perlmonks.org/index.pl?node_id=$node");
my ($exp) = $html =~ m{<td>Experience:</td>\s+<td><b>(\d+)};

my %level = (
   initiate => 0,
   novice   => 20,
   acolyte  => 50,
   scribe   => 100,
   monk     => 200,
   friar    => 500,
   abbot    => 1000,
   bishop   => 1600,
   pontiff  => 2300,
   saint    => 3000,
);

print "You made Monk!!!\n" if $exp >= $level{monk};
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Comment on (jeffa) Re: When Make New Level, Do... Download Code

Replies are listed 'Best First'.
Re: (jeffa) Re: When Make New Level, Do... by arrow (Friar) on Dec 23, 2002 at 01:48 UTC
Thanks jeffa, I'll try that... Just Another Perl Wannabe	[reply]

In Section Perl Monks Discussion