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. ;)

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("$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};


(the triplet paradiddle with high-hat)

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