PerlのWin32::OLEのsapiで非同期音声出力をしたい

Question

Perlスクリプト(※)でWin32::OLEでSpeech API(sapi)を呼び出し音声出力をすることを考えています。
音声出力が始まったらすぐにスクリプトの次の行の実行をしてほしいのですが、そうなりません。
※ Windows 10 + Strawberry Perl 5.32.1

音声の終了を待たずに次の行の実行に移るにはどうしたら良いでしょうか?

発生している問題・エラーメッセージ

下記のスクリプトをコマンドプロンプトから実行すると、音声が出力されますが、その後の「print "OK";」は、音声の出力が終了しないと実行されません。「... long long sentence.」をしゃべり終わった後で初めて「OK」と表示されます。

該当のソースコード

#!/usr/bin/perl
use utf8;
use strict;
use warnings;
use Win32::OLE;

speak('This is a test message. And this is a very long long sentence.');
print "OK"; # 実際はこの後に色々な処理
exit;

sub speak{
  my($text) = @_;
  my $tts = Win32::OLE->new("Sapi.SpVoice") or die "Sapi.SpVoice failed";
	$tts->{Voice} = $tts->GetVoices->Item(1);
  
  $tts->Speak($text, 1);
  $tts->WaitUntilDone(-1);
}

補足情報（FW/ツールのバージョンなど）

https://docs.microsoft.com/en-us/previous-versions/windows/desktop/ee125223(v=vs.85)
Microsoft Speech API 5.4 SpeechVoiceSpeakFlags Enum
や、
https://www.tek-tips.com/viewthread.cfm?qid=1262913
を見るとSpeakメソッドの第2引数を1にすると非同期(speak asynchronously)になると書いてあるようなのですが..

Answer 1

forkしてプロセスを分けると良さそうです。

#!/usr/bin/perl
use utf8;
use strict;
use warnings;
use Win32::OLE;

my $pid=fork;
if($pid){ # 親プロセス
  print "OK\n";
}elsif($pid==0){ # 子プロセス
  speak('This is a test message. And this is a very long long sentence.');
}else{ # 失敗
  die "Fail to fork";
}
exit;

sub speak{
  my($text) = @_;
  my $tts = Win32::OLE->new("Sapi.SpVoice") or die "Sapi.SpVoice failed";
    $tts->{Voice} = $tts->GetVoices->Item(1);

  $tts->Speak($text, 1);
  $tts->WaitUntilDone(-1);
} 

Comments

[Hirakou]

コメントありがとうございます。

Windows版Perlでfork()が実装されて動くとは思いもよりませんでした。(forkがあることを知っていたとしても、今回の問題でforkで別プロセスで音を出す発想には至りませんでした。感謝します。)

お教えいただいたスクリプト、Strawberry Perlできちんと意図した挙動(しゃべり始めてすぐに「OK」が表示される)をしてくれました。

Answer 2

Perl では試していないのですが VBScript で試した感じだと非同期オプションは効いているようでした。

  $tts->Speak($text, 1);

は、非同期で処理され、

  $tts->WaitUntilDone(-1);

で、音声出力が終了するまで待機するようになっているようです。
その為、すべて再生するまで「OK」が表示されないという状況のようです。
恐らくは WaitUntilDone を最後に呼ぶようにしたら、音声の終了を待たずに何かしら処理が行えるのでは、と思います。

以下は VBScript での実行例になります。

Dim sapi
Set sapi = CreateObject("SAPI.SpVoice")

sapi.Speak "おはようございます", 1
WScript.Echo "おはようございます"

sapi.Speak "こんにちは", 1
WScript.Echo "こんにちは"

sapi.Speak "おやすみなさい", 1
WScript.Echo "おやすみなさい"

sapi.WaitUntilDone -1

上記のコードを実行すると

おはようございます
こんにちは
おやすみなさい

が出力された後に、音声出力が始まります。

Comments

[Hirakou]

アドバイスありがとうございます！

重要な点は、ご指摘の通りWaitUntilDoneの位置でした。
WaitUntilDoneをサブルーチンspeakの中でなく、スクリプト全体の終了直前に移動させることで期待した動作をしてくれました。

[cx20]

そういえば、今更ながらですが、Perl インストールしてみました。
恥ずかしながら、当初、質問文をよく読んでおらず、ActivePerl で試そうとしていました。
しかしながら ActivePerl はダウンロードにアカウント登録が必要なようで、Perl を試すのを諦めてしまいました。
Strawberry Perl ならアカウント登録不要なんですね。良い情報を教えて頂きありがとうございます。