perl中的语音合成

Question

有没有可能让计算机(windows或linux，mac)用perl来说话？我知道使用VB脚本是可能的。但是perl呢？

在VB中，我们只需编写

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

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

Answer 1

Speech::Synthesis模块可以连接到微软的SAPI5API，它看起来像是你在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都能够进行语音合成。