が出たそうです。
Link:ひらがなもでる
拙作の「Text::KyTea」でも使えます。
#!/usr/bin/env perl
use strict;
use warnings;
use Text::KyTea;
my $kytea_normal = Text::KyTea->new;
my $kytea_hiragana = Text::KyTea->new(model_path => './kytea-hiragana.mod');
my @strs = qw/かまんべーるちーず めいじぶるがりあよーぐると りりかるなのは 長野県の長野久義です/;
print "デフォルトのモデル\n";
for my $str (@strs)
{
disp_result( $kytea_normal->parse($str) );
}
print "\n\n";
print "ひらがなもでる\n";
for my $str (@strs)
{
disp_result( $kytea_hiragana->parse($str) );
}
sub disp_result
{
my $results = shift;
for my $result (@{$results})
{
print $result->{feature}, ",";
print $result->{pron}, "\n";
}
print "\n";
}
アウトプット
デフォルトのモデル
動詞,かまんべーる
補助記号,ちーず
動詞,めいじ
語尾,ぶ
動詞,るが
語尾,り
動詞,あ
助詞,よー
動詞,ぐ
語尾,る
助詞,と
動詞,りりか
語尾,る
助動詞,な
助詞,の
助詞,は
名詞,ながの
名詞,けん
助詞,の
名詞,ちょうの
名詞,ひさよし
助動詞,で
語尾,す
ひらがなもでる
名詞,かまんべーる
名詞,ちーず
名詞,めいじ
名詞,ぶるがりあ
名詞,よーぐると
名詞,りりかる
助動詞,な
助詞,の
助詞,は
名詞,ながの
名詞,けん
助詞,の
名詞,ながの
名詞,ひさよし
助動詞,で
語尾,す
てな具合。MeCabでやってもデフォルトのモデルと同じような結果になります。(「ひらがなもでる」すげー でも「ちょうの」が「ながの」に・・・)
モジュール上げてから思ったけど、簡単に使えるのを優先しすぎてインターフェースがKyTea側のAPIの変更に弱いのが気がかり。
完全独学の処女作で、大学で教えているスクリプト言語はRubyということで身近にPerl使う人もいないので正直あまり自信がありません。モジュールのインストールできねーとかありましたらどうぞ!