PerlSpeak 2.01

PerlSpeak is a Perl module for text to speech with festival, espeak, cepstral and others.

PerlSpeak.pm is Perl Module for text to speech with festival or cepstral (Other tts systems may be used by setting the tts command properties). PerlSpeak.pm includes several useful interface methods like an audio file selector and menu system. PerlSpeak.pm was developed to use in the Linux Speaks system, an audio interface to Linux.

SYNOPSIS

my $ps = PerlSpeak->new([property => value, property => value, ...]);

METHODS

$ps = PerlSpeak->new([property => value, property => value, ...]);
Creates a new instance of the PerlSpeak object.

$ps->say("Text to speak.");
$ps->say("file_name");
The basic text to speech interface.

$ps->readfile("file_name");
Reads contents of a text file.

$ps->file2wave("text_file_in", "audio_file_out");
Converts a text file to an audio file.

$path = $ps->filepicker("/start/directory");
An audio file selector that returns a path to a file. If "dir_return" is true
"filepicker" may also return the path to a directory.

$path = $ps->dirpicker("/start/directory");
An audio directory selector that returns a path to a directroy.

$chr = $ps->getchr();
Returns next character typed on keyboard

$ps->menu("Text to speak" => $callback, "Other text to speak" => $callback, ...)
An audio menu executes callback when item is selected

PROPERTIES

The default property settings should work in most cases. The exception is if you want to use a tts system other than festival or cepstral. The rest of the properties are included because I found them usefull in some instances.

$ps->{tts_engine} => "festival" or "cepstral"; Default is "festival"
Other tts engines can be used by using the tts command properties.

$ps->{tts_command} => "command text_arg"; Default is ""
Command to read a text string. "text_arg" = text string.

$ps->{tts_file_command} => "command file_arg" Default is ""
Command to read a text file. "file_arg" = path to text file to be read.

$ps->{file2wave_command} => "command IN OUT"; Default is ""
Command for text file to wave file. "IN" = input file "OUT" = output file.
Not needed if tts_engine is festival" or "cepstral.

$ps->{no_dot_files} => $boolean; Default is 1
$ Hides files that begin with a '.'

$ps->{hide_extentions} => $boolean; Default is 0
Will hide file extensions.
NOTE: If hiding extensions the no_dot_files property must be set to 1.

$ps->{make_readable} => "regexp pattern"; default is "[_\]"
will substitute spaces for regexp pattern

$ps->{browsable} => $boolean; Default is 1
If true filepicker can browse other directories via the right and left arrows.

$ps->{dir_return} => $boolean; Default is 1
If true filepicker may return directories as well as files.

$ps->{file_prefix} => $text; Default is "File"
For filepicker. Sets text to speak prior to file name.

$ps->{dir_prefix} => "text"; Default is "Folder"
For filepicker and dirpicker. Sets text to speak prior to directory name.

HOW TO USE

!/usr/bin/perl

use PerlSpeak;

my $ps = PerlSpeak->new();

# Set properties
$ps->{tts_engine} = "festival"; or cepstral
# Optionally set your own tts command use text_arg where the text goes
$ps->{tts_command} => "";
$ps->{no_dot_files} => 1;
$ps->{hide_extentions} => 0;


# Audio file selectors
my $file = $ps->filepicker($ENV{HOME}); Returns a file.
my $dir = $ps->dirpicker($ENV{HOME}); Returns a directory.

$ps->say("Hello World!"); #The computer talks.

# Returns the next character typed on the keyboard
# May take 2 or 3 calls for escape sequences.
print $ps->getch();

# Make some sub refs to pass to menu
my $email = sub {
print "Emailn";
};
my $internet = sub {
print "Internetn";
};
my $docs = sub {
print "Documentsn"
};
my $mp3 = sub {
print "MP3n";
};
my $cdaudio = sub {
print "CD Audion"
};
my $help = sub {
print "Browse Helpn"
};

# menu is a talking menu
# Pass menu a hash of "text to speak" => $callback pairs
$ps->menu(
"E-mail Menu" => $email,
"Internet Menu" => $internet,
"Documents Menu" => $docs,
"M P 3 audio" => $mp3,
"C D audio" => $cdaudio,
"Browse help files" => $help,
};

Product's homepage

Requirements:

· Perl