speak_stdin

gistfile1.pl

#!/usr/bin/env perl
use warnings;
use strict;

use Text::MeCab;

my $mecab = Text::MeCab->new;

while(<>){
    chomp;
    my $text;
    for (my $node = $mecab->parse($_); $node; $node = $node->next) {
        my @f = split ',', $node->feature;
        warn $node->feature;
        $text .= $f[8] if $f[8] ne '*';
    }
    system "/usr/local/bin/SayKana $text";
}