use strict;
use LWP::Simple;
use Win32::Sound;
my $poll=600;
my $wav='c:\winnt\media\chimes.wav';
my $question;
&watch;
sub watch {
my @content = split/\n/,get("http://www.perlmonks.org");
my $hit;
for (@content) {
if ($hit and /href.*node.*\>(.*)\<\/a\>/i) {$hit=0;compare($1)};
$hit=1 if /New Questions/;
}
}
sub compare {
my $curquestion=shift;
if ($question ne $curquestion) {
$question=$curquestion;
&act;
}
sleep $poll;
&watch
}
sub act {
print "New Question: $question\n";
Win32::Sound::Play($wav);
}
Snippets of code should be wrapped in
<code> tags not<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).