|
NAMELingua::JA::Romanize::MeCab - Romanization of Japanese language with MeCab SYNOPSIS use Lingua::JA::Romanize::MeCab;
my $conv = Lingua::JA::Romanize::MeCab->new();
my $roman = $conv->char( $kanji );
printf( "<ruby><rb>%s</rb><rt>%s</rt></ruby>", $kanji, $roman );
my @array = $conv->string( $string );
foreach my $pair ( @array ) {
my( $raw, $ruby ) = @$pair;
if ( defined $ruby ) {
printf( "<ruby><rb>%s</rb><rt>%s</rt></ruby>", $raw, $ruby );
} else {
print $raw;
}
}
DESCRIPTIONThis is a MeCab version of Lingua::JA::Romanize::Japanese module. This requires MeCab.pm module which is distributed in mecab-perl-0.xx.tar.gz package. UTF-8 FLAGThis treats utf8 flag transparently. SEE ALSOLingua::JA::Romanize::Japanese http://mecab.sourceforge.jp/ (Japanese) COPYRIGHT AND LICENSECopyright (c) 2006-2008 Yusuke Kawasaki. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
|