perl - perl 中的语音合成

Question

是否可以让计算机（windows 或 linux、mac）用 perl 说话？我知道使用 VB 脚本是可能的。但是 perl 呢？

在VB中我们只写

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

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

Answer 1

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

Answer 2

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

use Win32::OLE;

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

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