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.

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;