While I'll grant that "the entire damn page" does indeed include "latest entry", I'm not sure this is what was meant :)
If you are unable to use this captcha for any reason, please contact us by email at support@dreamwidth.org
Re: No problemo!
Date: 2004-01-14 08:00 pm (UTC)#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
my $content = get("http://www.livejournal.com/users/ronebofh/");
local($/);
if ($content =~ m|<div class="entry">(.*?)</div>|ms)
{
my $latest_entry = $1;
#strip tags and crap
$latest_entry =~ s/<.*?>//g;
$latest_entry =~ s/ / /g;
open PLAN, ">$ENV{HOME}/.plan" or die "can't open .plan: $!";
print PLAN $latest_entry;
close PLAN or die "can't close .plan: $!";
}
__END__