在perl语音合成

Question

有可能让电脑(windows或linux, mac)用perl语言说话吗?我知道这是可能的与VB脚本。那perl呢?

在VB中我们只写

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

我们如何在perl中做到这一点?

Answer 1

Speech::Synthesis模块可以连接到微软的SAPI 5 API，看起来就像你在VB中使用的一样。还有Win32::SAPI5，它是特定于windows的，但可能提供更多的控制，或者您可以直接使用Win32::OLE:

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

当然，如果您要多次发言，您可能希望只创建一次对象，将其存储在变量中，并多次调用Speak。

Answer 2

快速的CPAN搜索显示，PerlSpeak, Speech::Synthesis和Speech::eSpeak都能够进行语音合成。