синтез речи в Perl

Question

Можно ли заставить компьютер (windows или linux, mac) говорить на Perl? Я знаю, что это возможно с помощью скрипта VB. Но как насчет Perl?

В VB мы просто пишем

CreateObject("SAPI.SpVoice").Speak"I can speak "

Как мы это делаем в Perl?

Answer 1

Модуль Speech :: Synthesis может взаимодействовать с API SAPI 5 от Microsoft, который, похоже, используется в VB. Также есть Win32 :: SAPI5 , который специфичен для Windows, но может предложить больший контроль, или вы можете просто использовать Win32 :: OLE :

use Win32::OLE;

Win32::OLE->CreateObject('SAPI.SpVoice')->Speak('I can speak');

Конечно, если вы собираетесь говорить несколько раз, вы, вероятно, захотите создать объект только один раз, сохранить его в переменной и вызвать для него Speak несколько раз.

Answer 2

Быстрый CPAN поиск показывает, что PerlSpeak , Речь :: Синтез и Речь :: eSpeak все способны к речи синтез.