LINUX.ORG.RU
ФорумTalks

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


0

0

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

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

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

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

★★★

приятней работает если сначала накопить текст

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

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

ничего не бессмыслено - можно слышать чего тебе написали когда ты не за компом.

и если ничего важного - забить.

ну или не переключать фокус в другое окно когда прогаешь.

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

а это плохо или хорошо?

и у кого в зависимостях?

vasaka ★★★
() автор топика

упс, я свято думал, что speex, это аналог фестиваля - оказалось не то

Сейчас поставлю копыто, испробую, поделюсь впечатлениями

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

> ну или не переключать фокус в другое окно когда прогаешь.

а нотификации в правом-нижнем углу не катят? меня лично бы очень напрягало и сбивало с мысли если бы мне под ухо говорили из копыта когда я программизмом занимаюсь...

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

меня шевелящаяся картинка больше сбивает. а звук я как-то просто в игнор.

все же по-разному воспринимают инфу.

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

ну и не книжки все же читаются, хотя я одно время через дигало книжки слушал.

vasaka ★★★
() автор топика
Ответ на: комментарий от 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
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.