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 。