Plagger::Plugin::Publish::Speech

これも Plugin::Pipe からのインスパイヤ。Windows の Speech API (SAPI4) を使ってフィードを読み上げます。楽SpeechS でできるような RSS 音声読み上げアプリができます。

いまのところ Win32 限定ですが、だれか /usr/bin/say でもつかって MacOSX 版おねがいします。

Plagger::Plugin::Speech::Win32

package Plagger::Plugin::Publish::Speech::Win32;
use base qw( Plagger::Plugin::Publish::Speech );
use Encode;
use Locale::Country;
use Locale::Language;
use Time::HiRes 'sleep';
use Win32::OLE;
use Win32::SAPI4;
sub feed {
 my($self, $context, $args) = @_;
 my $voice = Win32::SAPI4::VoiceText->new;
 $self->speak($voice, encode("utf-8", $args->{feed}->title_text) );
 for my $entry ($args->{feed}->entries) {
 my $stuff = $entry->title_text . $entry->body_text;
 # HACK this should be handled in $entry->locale
 my $lang = $stuff =~ /\p{Hiragana}|\p{Katakana}|\p{Han}/ ? 'ja' : 'en-us';
 my $encoding = $lang eq 'ja' ? 'cp932' : 'latin-1';
	$self->speak($voice, $lang, encode($encoding, $stuff) );
 }
}
sub speak {
 my($self, $voice, $lang, $message) = @_;
 my($t1, $t2) = split /-/, $lang;
 my $key = code2language($t1);
 $key.= " (".code2country($t2).")" if code2country($t2);
 my $code = $voice->Language2LanguageID($key);
 my $gender = $self->conf->{voice} || 'male';
 my @try_gender = $gender =~ /^male$/i ? (1, 2) : (2, 1);
 
 TRY: for my $gender (@try_gender) {
 for my $i (1 .. $voice->CountEngines) {
 if ( $voice->LanguageID($i) == $code && $voice->Gender($i) == $gender ) {
 Plagger->context->log(debug => "Found voice $i for Lang $lang and Gender $gender");
 $voice->Select($i);
 last TRY;
 }
 }
 }
 $voice->Speak($message);
 sleep 1 while $voice->IsSpeaking;
}
1;

SAPI4 を使ってオーディオからそのまま音声が流れます。本来なら WAV にしてファイルに書き出したいんですが、SAPI4 でやる方法がわかりませんでした。。 $voice->GetObject->{FileName} = "output.wav" とかすると 0 byte の .wav ファイルができるのでイイ線いってるとはおもうのですが。

むかし rss2audiobook を書いたときは SAPI5 で wav ファイルに書き出せたんですが、SAPI5 だと日本語ランゲージパックをいれても GetInstalledLanguages ででてきません orz