Dotfiles, utilities, and other apparatus.
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.

festival-stdin.pl 288B

12345678910111213
  1. #!/usr/bin/env perl
  2. use warnings;
  3. use strict;
  4. # Get festival to do text-to-speech on stdin, one line a time. Useful with
  5. # tail -f. (One child process per line.)
  6. while (<>) {
  7. open my $festival, "| festival --tts" or die "can't fork: $!";
  8. print $festival $_;
  9. close $festival;
  10. }