This post originated from an RSS feed registered with Perl Buzz by Andy Lester. Original Post: Perl one-liner to sample your Mac's voices Feed Title: Perlbuzz Feed URL: http://perlbuzz.com/atom.xml Feed Description: What's happening in the world of Perl programming, including Perl 5, Perl 6, the CPAN and Parrot? Latest Perl Buzz Posts Latest Perl Buzz Posts by Andy Lester Latest Posts From Perlbuzz

I've been following stories about Roger Ebert's new voice, which a company has made so that they can apparently plug it into his Mac. In his appearances on camera, the voice he's been using is the Mac "Alex" voice. What other voices does your Mac have? Here's a Perl one-liner to play them.

From the Terminal window, paste this in at the prompt:

perl -le'for (@ARGV){m{/(\w+?)\.SpeechVoice};' \
  -e'$_=$1;s/([a-z])([A-Z])/$1 $2/g;' \
  -e'print qq{say -v "$_" This is $_};}' \
  /System/Library/Speech/Voices/* | sh -x

On my Mac, "Organ" isn't found, but I don't know why.