I put the following together to scrape experience, level and writeups off my profile page and store it in a text file on my computer, to record my progress through the Monastery. A scheduled task runs this once a day.
use strict; use warnings; use LWP::Simple; use URI::URL; my $date=`ECHO %DATE:~10,4%%DATE:~4,2%%DATE:~7,2%`; # YYYYMMDD my $url = url('http://perlmonks.org/?node_id=844862'); my $content = get($url); $content =~ s/\cJ//g; $content =~ s/\cM//g; my ($experience, $level, $posts) = ($content =~ /Experience:\D+(\d+).+ Level:.+([A-Z][a-z]+\s+\(\d+\)).+ Writeups:.+>(\d+)</x); open my $ofh, '>>','perl_xp.dat'; printf $ofh "%d,%d,%d,%s\n",$date,$experience,$posts,$level; close($ofh);
There is probably a way to do this in Javascript that could be included in the Free Nodelet, but that's beyond my skill level.
Update
Improved version here.
1 Peter 4:10
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Storing Experience for Posterity
by choroba (Cardinal) on Jun 12, 2014 at 14:37 UTC | |
Re: Storing Experience for Posterity
by oiskuu (Hermit) on Jun 12, 2014 at 15:50 UTC | |
Re: Storing Experience for Posterity
by morgon (Priest) on Jun 13, 2014 at 08:17 UTC | |
by GotToBTru (Prior) on Jun 18, 2014 at 19:02 UTC | |
Re: Storing Experience for Posterity
by ww (Archbishop) on Jun 12, 2014 at 15:23 UTC |
Back to
Cool Uses for Perl