NAME

eGuideDog::Dict::Cantonese - an informal Jyutping dictionary.

SYNOPSIS

use utf8;
use eGuideDog::Dict::Cantonese;

binmode(stdout, 'utf8');
my $dict = eGuideDog::Dict::Cantonese::new();
my $symbol = $dict->get_jyutping("é•¿");
print "é•¿: $symbol\n"; # é•¿: coeng4
$symbol = $dict->get_jyutping("长辈");
print "长辈的长: $symbol\n"; # zoeng2
my @symbols = $dict->get_jyutping("粤拼");
print "粤拼: @symbols\n"; # 粤拼: jyut6 ping3
my @words = $dict->get_words("é•¿");
print "Some words begin with é•¿: @words\n";

DESCRIPTION

This module is for looking up Jyutping of Cantonese characters or words. It's edited by a programmer not a linguistician. There will be many errors. So don't take it serious. It's a part of the eGuideDog project (http://e-guidedog.sf.net).

EXPORT

None by default.

METHODS

new()

Initialize dictionary.

get_jyutping($str)

Return a scalar of jyutping symbol of the first character if it is in a scalar context.

Return an array of jyutping symbols of all characters in $str if it is in an array context.

get_words($char)

Return an array of words which are begined with $char. This list of word contains multi-symbol characters and the symbol used in the word is less frequent.

SEE ALSO

http://e-guidedog.sf.net

AUTHOR

Cameron Wong, <hgn823-perl at yahoo.com.cn>

COPYRIGHT AND LICENSE

Copyright 2008 by Cameron Wong

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.