perl中的语音合成

Question

是否有可能使计算机（Windows或Linux，Mac）在Perl中说话？我知道这是可能的VB脚本。但是，如何perl？

在VB中，我们只是写

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

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

Answer 1

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。

Answer 2

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