LINUX.ORG.RU
ФорумTalks

копыто русским голосом матерится


0

0

всего три строчки на перле, а сколько радости.

новое копыто, оказывается умеет использовать внешние фильтры для сообщений и можно отправить входящие мессаги на фестиваль.

плюс в дебиане недавно появился русский голос для него, по качеству лучше дигало, на мой вкус.

while (<STDIN>) { print; system "echo \"$_\" | festival --tts"; }

★★★
Ответ на: комментарий от vasaka

my $text;
while (<STDIN>) {
print;
$text .= $_;
}
system "echo \"$text\" | festival --tts";

гы, как криво то :)

open my $fest, '|-', 'festival', '--tts';
while(<>)
{
  print;
  print $fest $_;
}

iku
()
Ответ на: комментарий от iku

в идеале бы сообщение отправить в фестиваль пережевывать, а скрипт завершить тем временем, чтобы копыто не ждало пока все произнесется.

vasaka ★★★
() автор топика
Ответ на: комментарий от vasaka

что-то в этом духе:


my @input = <>;
exit if fork; # возвращаем управление в родителя

# проговариваем в дочке
open my $fest, '|-', 'festival', '--tts';
print $fest $_ for @input;

iku
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.