CUFP
GotToBTru
<p>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.</p>
<c>
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);
</c>
<p>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.</p>
<h4>Update</h4><p>Improved version [id://1090339|here].</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-844862">
1 Peter 4:10
</div></div>