The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

Object Methods

new()

Returns a new Wap object. NOTE: this method may take some time to execute as it loads the list into memory at construction time

hasLibrary

Params: none Returns: true if speech library could be loaded Example: if($obj->hasLibrary) { # do something here }

initializeSpeech

Params: none Returns: true if speech library could be initialized Example: if($obj->initializeSpeech) { # do something here }

speak(string)

Params: -string The string to speak Returns: none Example: $obj->speak("Hello world");

setVoice(number)

Params: -number The voice number to use Returns: none Example: $obj->setVoice(1);

getVoiceDesc(number)

Params: -number The voice number you want to get the description for Returns: string description of the voice Example: print "Voice 1 ",$obj->getVoiceDesc(1),"\n";

getVoices()

Params: none Returns: hash of voices keyed by voice number Example: my %hash = $obj->getVoices; foreach my $key (keys(%hash)) { print "Voice $key ",$hash{$key}; }

NAME

NetStumbler::Speech - Speech tools for NetStumbler

SYNOPSIS

  use NetStumbler::Speech;
  my $speechlib = NetStumbler::Speech->new();
  $speechlib->speak("Hello world!");

DESCRIPTION

 This module handles interaction with Microsoft speech libraries
 as I find a speech library for use on linux/mac I will add support for those
 

EXPORT

These functions avaibale for export hasLibrary initializeSpeech speak setVoice getVoices getVoiceDesc

SEE ALSO

Win32API and MSDN For Speech API examples

AUTHOR

Salvatore E. ScottoDiLuzio<lt>washu@olypmus.net<gt>

COPYRIGHT AND LICENSE

Copyright (C) 2004 by Salvatore ScottoDiLuzio

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.3 or, at your option, any later version of Perl 5 you may have available.