Log Talker

Thought of a great idea to annoy lazy web developers. now if I only had speakers on my work PC.. hmm..

ssh rfb@webhost 'tail -f /var/log/httpd/webhost/error_log' | perl -MWi
+n32::OLE -ne "BEGIN{$v=Win32::OLE->new('SAPI.SpVoice')} s/\[.*?\]//g;
+s/\/\S+(?=\/)//g;print\"$_\n\";$v->Speak($_)";
[download]

ActivePerl + Cygwin + Busy error_logs
-Ryan

Comment on Log Talker Download Code

Replies are listed 'Best First'.
Re: Log Talker by giulienk (Curate) on Jul 27, 2003 at 16:13 UTC
WARNING: self-advertisement ahead... Without speakers? Why don't you try out Audio::Beep? `$\|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g`	[reply]

Back to Cool Uses for Perl