BrianP
New User
Sep 8, 2008, 9:56 AM
Post #1 of 1
(1188 views)
|
|
Dragon Naturally Speaking dictating into Perl program?
|
Can't Post
|
|
Hi,
I need to get the text output from Dragon Naturally Speaking (9.10) into a running Perl script. I can do a hash lookup to see if the current word is one of a few dozen commands or if it is just raw data.
I tried opening STDIN and reading it, but nothing is there and the words just show up on my dumb dos window.
What am I doing wrong here?
sub speak() {
open(SI, "-") || die("Can't open stdin!\n");
while(<SI>) {
printf("Got word \"%s\".\n", $_);
}
}
Is there another way to do this? I can send the text to OpenOffice Writer and set the autosave to a 1 minute interval and poll the file, but that would be like trying to engage in an intelligent conversation with Homer (or Jessica) Simpson.
Any ideas?
Thank you,
BrianP
|
MAIN
SEARCH
WHO'S 
LOG 