音声一覧

---

　Windows用です。
　Win32::OLEモジュールを使って、Microsoft Speech Platformを利用します。

use strict;
use warnings;
use Win32::OLE;

my $speech = Win32::OLE->new('Speech.SpVoice')
    or die "Microsoft Speech Platformが利用できません。";
my $voice_info = $speech->GetVoices;
foreach my $i (0 .. $voice_info->Count - 1) {
    print $voice_info->Item($i)->GetAttribute('Name'), "\n";
}

(出力例)
Microsoft Server Speech Text to Speech Voice (ja-JP, Haruka)
Microsoft Server Speech Text to Speech Voice (en-US, Helen)

---

関連項目

・音声出力
・音声ファイルの作成