You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
288 B
13 lines
288 B
#!/usr/bin/env perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
# Get festival to do text-to-speech on stdin, one line a time. Useful with
|
|
# tail -f. (One child process per line.)
|
|
|
|
while (<>) {
|
|
open my $festival, "| festival --tts" or die "can't fork: $!";
|
|
print $festival $_;
|
|
close $festival;
|
|
}
|