#!c:/perl/bin/perl.exe -w
use strict;

#uncomment the next line if you want the script to write a wave file f
+or you
# &SAPIwave("This is the wave file created by Phil's sapi Perl script"
+,"0","c:\\temp\\mary.wav");

&SAPItalk("Hello, and welcome to Phil's sapi perl script",0);
&SAPItalk("The following voices are installed.",1);

#------------------------------------------------
# Run test procedure
#------------------------------------------------

&SAPItest;

#------------------------------------------------
# Display all installed voices
#------------------------------------------------
my %voicelist = &SAPIgetVoices;
my $a = '';
print "\n";
foreach $a (sort keys %voicelist)
{
    print "$voicelist{$a} = $a\n";
}

&SAPItalk("Who would you like to speak next?",0);

my $voice = &ask;;


&SAPItalk("What would you like me to say?",$voice);

my $text = &ask();

&SAPItalk($text,$voice);

&SAPItalk("Thank you, and have a nice day.",0);

exit(0);

#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=
+#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=
#             E N D   O F   M A I N   P R O G R A M
#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=
+#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=
sub ask
{
    print "$_[0]> ";
    my $answer = <STDIN>;
    chomp($answer);
    return $answer;
}
sub SAPIgetVoices
{
    ##################################################################
+###
    # SAPIgetVoices
    #-----------------------------------------------------------------
+--#
    # Returns all SAPI voices via a hash
    ##################################################################
+###
    use Win32::OLE;

    my $tts = Win32::OLE->new("Sapi.SpVoice") or die "Sapi.SpVoice fai
+led";
    my %VOICES;
    for(my $VoiceCnt=0;$VoiceCnt < $tts->GetVoices->Count();$VoiceCnt+
++)
    {
        my $desc = $tts->GetVoices->Item($VoiceCnt)->GetDescription;

        $VOICES{"$desc"} = $VoiceCnt;
    }
    return %VOICES;
}

sub SAPItalk
{
    ##################################################################
+###
    # SAPItalk
    #-----------------------------------------------------------------
+--#
    # Speaks the text in the voice number specified
    ##################################################################
+###
    use Win32::OLE;

    my ($text,$voice) = @_;

    my $tts = Win32::OLE->new("Sapi.SpVoice") or die "Sapi.SpVoice fai
+led";
    $tts->{Voice} = $tts->GetVoices->Item($voice);

    print "[ $text ]\n";
    $tts->Speak("$text", 1);

    $tts->WaitUntilDone(-1);
}
sub SAPIwave
{
    ##################################################################
+###
    # SAPIwave
    #-----------------------------------------------------------------
+--#
    # Creates a wave file, worksjust like SAPItalk
    ##################################################################
+###

    my ($text,$voice,$wave) = @_;
    use Win32::OLE;

    my $type=Win32::OLE->new("SAPI.SpAudioFormat");

    # stereo = add 1
    # 16-bit = add 2
    # 8KHz = 4
    # 11KHz = 8
    # 12KHz = 12
    # 16KHz = 16
    # 22KHz = 20
    # 24KHz = 24
    # 32KHz = 28
    # 44KHz = 32
    # 48KHz = 36
    $type->{Type}=30;

    my $stream=Win32::OLE->new("SAPI.SpFileStream");
    $stream->{Format}=$type;

    $stream->Open("$wave",3,undef);

    my $tts=Win32::OLE->new("SAPI.SpVoice");
    $tts->{AudioOutputStream}=$stream;
    $tts->Speak($text,1);

    $tts->WaitUntilDone(-1);

    $stream->Close(  );
}
sub SAPItest
{
    ##################################################################
+###
    # SAPItest
    #-----------------------------------------------------------------
+--#
    # Speaks each voice installed in the SAPI environment.
    ##################################################################
+###
    use Win32::OLE;

    my $tts = Win32::OLE->new("Sapi.SpVoice") or die "Sapi.SpVoice fai
+led";

    for(my $VoiceCnt=0;$VoiceCnt < $tts->GetVoices->Count();$VoiceCnt+
++)
    {
        $tts->{Voice} = $tts->GetVoices->Item($VoiceCnt);
        my $desc = $tts->GetVoices->Item($VoiceCnt)->GetDescription;
        
        $text = "This is $desc, voice number $VoiceCnt";
        print "[ $text ]\n";
        $tts->Speak("$text", 1);

        $tts->WaitUntilDone(-1);
    }
}
[download]

Thanks!

#!/massyn.pl

Don't -- me without telling me why. If you asked a stupid question, I wouldn't down vote you.