[small function for following a frameset]
------------------------------------------------------------------
sub followFrameSet {
my ($content, $frameName) = @_;
print "Checking for frameset... ";
if ($content =~ /<FRAME.*name=$frameName.*src="(.*)"/) {
print "found. - ";
print "following frame-src: $1\n";
return $1;
}
print "negative.";
return;
}
------------------------------------------------------------------
Perl goodies #1
Perl and Text-to-speech
[Speaking text using 'festival']
------------------------------------------------
sub say_something {
my $text = shift;
open(FESTIVAL, '| festival --tts --pipe');
print FESTIVAL $text;
}
------------------------------------------------
------------------------------------------------
sub say_something {
my $text = shift;
open(FESTIVAL, '| festival --tts --pipe');
print FESTIVAL $text;
}
------------------------------------------------