Why not adopt me?
NAME
Lingua::JA::Sort::ReadableKey - Sorting and Romanizing Japanese
SYNOPSIS
use Lingua::JA::Sort::ReadableKey;
for ( map { $_->[0] }
sort { $a->[1] cmp $b->[1] }
map { [ $_, japanese_sortorder($_) ] } @utf8 ) {
DESCRIPTION
First, does Lingua::JA::Sort::JIS do what you want? Look at that first.
It may not do what you want if you want
Kanji phrases sorted in their reading order, rather than as a separate block.
A machine-readable or storable key so that comparisons and sorting can be done by a non-Japanese-aware system later.
This module uses Text::ChaSen
to do kanji-kana conversion, and then produces a comparable ASCII key for sorting.
All text should be in "real" UTF-8 - that is, strings in Perl's internal format with the UTF-8 flag on.
EXPORT
The following methods are exported:
kanji_to_kana
Use ChaSen to convert a kanji sequence into hiragana. You obviously need to install ChaSen, and its Perl interface Text::ChaSen
to make this work. You can get ChaSen from http://chasen.aist-nara.ac.jp/ and Text::ChaSen
is bundled with it. If you have Debian, install the packages "chasen" and "libtext-chasen-perl". This code will work with both ChaSen1 and ChaSen2.
japanese_pronunciation
This turns a Japanese string into an ASCII representation of its reading. You can't sort on this, because Japanese don't sort according to the Latin alphabet, but you can use to label Japanese things for people who can't read Japanese. This will automatically call kanji_to_kana
if necessary to get the reading of kanji strings.
japanese_sort_order
This returns an ASCII string which represents, in some bizarre magic encoding, the sort order of the Japanese input string, such that comparing the japanese_sort_order
of two UTF-8 strings will tell you how they should be sorted in a Japanese dictionary.
By "bizarre" and "magic", I mean that for each character, we find its order in the Japanese alphabet, and then replace that with chr(32+$order)
so that it can be compared with cmp
.
This also calls kanji_to_kana
if there are any kanji strings.
SEE ALSO
Lingua::JA::Sort::JIS, Text::ChaSen.
http://chasen.aist-nara.ac.jp/
AUTHOR
Simon Cozens, <simon@cpan.org>
COPYRIGHT AND LICENSE
Copyright (C) 2004 by Simon Cozens
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.4 or, at your option, any later version of Perl 5 you may have available.