[MacPerl] for fun

[pudge@pobox.com (Chris Nandor)]

Save it before you run it ... you need Speech-to-Text and the Victoria
voice (or change the voice to a different one).

#!perl -w
use Mac::Speech;
open$0,$0;$0=join'',<$0>;
foreach $i (@{[1..CountVoices()]}) {
  $voice = GetIndVoice($i);
  if (${GetVoiceDescription($voice)} =~ /Victoria/) {
    $channel = NewSpeechChannel($voice) || die $^E;
    SpeakText($channel, $0)             || die $^E;
      while (SpeechBusy()) {}
      DisposeSpeechChannel($channel);
  }
}

--
Chris Nandor               pudge@pobox.com           http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10  1FF7 7F13 8180 B6B6'])
#==                    MacPerl: Power and Ease                     ==#
#==    Publishing Date: Early 1998. http://www.ptf.com/macperl/    ==#



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch