Joe Kamphaus > Speechd-0.50 > Speechd

Download:
Speechd-0.50.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.50   Source  

NAME ^

Speechd - Perl Module wrapper for speech-dispatcher.

DESCRIPTION ^

Speechd is a Perl module to make it easy to use speech-dispatcher for text to speech functions.

SYNOPSIS ^

my $sd = Speachd->new([property => value, property => value, ...]);

PROPERTIES

port : Port number.

Default is 6560

ip : IP address.

Default is 127.0.0.1

voice : Voice name.

Default is MALE1. Possible voice names are: MALE1 MALE2 MALE3 FEMALE1 FEMALE2 FEMALE3 CHILD_MALE CHILD_FEMALE

rate : Speaking rate.

Default is 0. Possible values are from -100 to 100.

volume : Speaking volume.

Default is 0. Possible values are from -100 to 100.

pitch : Speaking pitch.

Default is 0. Possible values are from -100 to 100.

lang : Speaking lanuage.

Default value is en (english).

METHODS

new

my $sd = Speachd->new([property => value, property => value, ...]);

Creates a new instance of the Speachd object.

connect

$sd->connect();

Connect a socket to speech-dispatcher. This must be called before methods say, cancel, voice, volume, pitch, lang, and config_voice can be used.

disconnect

$sd->disconnect();

Disconnect socket from speech-dispatcher.

port

$sd->port([$port_number]);

If port number is given; sets port number and returns previos value. If no port number is given; returns value. Default value is 6560

ip

$sd->ip([$ip_address]);

If ip address is given; sets ip address and returns previos value. If no ip address is given; returns value. Default value is 127.0.0.1

voice

$sd->voice([$voice]);

If voice is given; sets voice and returns previos value. If no voice is given; returns value. Default value is MALE1. Possible values are: MALE1 MALE2 MALE3 FEMALE1 FEMALE2 FEMALE3 CHILD_MALE CHILD_FEMALE If not connected, method msg will return error.

rate

$sd->rate([$rate]);

If rate is given; sets rate and returns previos value. If no rate is given; returns value. Default value is 0. Possible values are from -100 to 100. If not connected, method msg will return error.

volume

$sd->volume([$volume]);

If volume is given; sets volume and returns previos value. If no volume is given; returns value. Default value is 0. Possible values are from -100 to 100. If not connected, method msg will return error.

pitch

$sd->pitch([$pitch]);

If volume is given; sets volume and returns previos value. If no volume is given; returns value. Default value is 0. Possible values are from -100 to 100. If not connected, method msg will return error.

lang

$sd->lang([$lang]);

If lang is given; sets language and returns previos value. If no lang is given; returns value. Default value is en. If not connected, method msg will return error.

config_voice

$sd->config_voice($voice, $lang, [$rate, $volume, $pitch]);

Sets parameters for speech-dispatcher. See individual methods for possible values.

msg

my $message = $sd->msg();

Returns and clears messages from previous command sent to speechd.

say

$sd->say($text_to_speak);

Sends text to speech-dispatcher to be spoken.

cancel

$sd->cancel();

Kills speech.

get_voices

my $voices = $sd->get_voices();

Returns a reference to an array holding all possible voice names.

sendraw

$sd->sendraw($command_to_send_to_speech-dispatcher);

Available to send commands directly to speech-dispatcher. Puts return messages into msg.

EXAMPLE ^

 #!/usr/bin/perl

 use strict;
 use warnings;

 use Speechd;

 my $rate = 0;
 my $vol = 0;
 my $pitch = 0;
 my $lang = "en";
 my $voice = "MALE1";

 my $sd = Speechd->new(
    'rate' => $rate,
    'volume' => $vol,
    'lang' => $lang,
    'voice' => $voice,
 );

 $sd->connect();

 while (1) {
    print "Enter text to speak:\n";
    my $text = <>;
    $sd->say($text);
    my $message = $sd->msg();
    print $message;
    chomp $text;
    $text = lc($text);
    last if $text eq "goodbye";
 }

 $sd->disconnect();

 exit 0;

SEE ALSO ^

More information about speech-dispatcher can be fount at: http://www.freebsoft.org

AUTHOR ^

Joe Kamphaus, <joe@joekamphaus.net>

COPYRIGHT AND LICENSE ^

Copyright (C) 2009 by Joe Kamphaus

 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation; version 2 of the License or any later version.

 This module is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.
syntax highlighting: