Lingua::JA::Romanize::Juman - Romanization of Japanese language with JUMAN
use Lingua::JA::Romanize::Juman;
my $conv = Lingua::JA::Romanize::Juman->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;
}
}
This is a JUMAN version of Lingua::JA::Romanize::Japanese module. This requires
Juman.pm module which is distributed in juman-x.x.tar.gz package.
This treats utf8 flag transparently.
http://nlp.kuee.kyoto-u.ac.jp/nl-resource/juman.html (Japanese)
Copyright (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.