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};
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)
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: (jeffa) Re: When Make New Level, Do...
by arrow (Friar) on Dec 23, 2002 at 01:48 UTC |
In Section
Perl Monks Discussion