perl - Perlでの音声合成

Question

コンピューター（WindowsまたはLinux、Mac）をPerlで話すようにすることは可能ですか？私はそれがVBスクリプトで可能であることを知っています。しかし、perlはどうですか？

VBでは次のように記述します

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

これをperlでどのように行うのですか？

Answer 1

Speech::Synthesisモジュールは、VB で使用しているように見える Microsoft の SAPI 5 API に接続できます。Win32::SAPI5もあります。これは Windows 固有ですが、より多くの制御を提供するか、単にWin32::OLEを使用できます。

use Win32::OLE;

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

もちろん、複数回話す場合は、オブジェクトを 1 回だけ作成し、それを変数に格納して、Speak複数回呼び出すことをお勧めします。

Answer 2

CPANをすばやく検索すると、PerlSpeak、Speech::Synthesis、およびSpeech::eSpeakのすべてが音声合成に対応していることがわかります。