Lingua::JA::KanjiTable - Kanji properties
use Lingua::JA::KanjiTable; use utf8; '亜' =~ /^\p{InJoyoKanji}$/ ? 1 : 0; # => 1 '亞' =~ /^\p{InJoyoKanji}$/ ? 1 : 0; # => 0 '匁' =~ /^\p{InJoyoKanji}$/ ? 1 : 0; # => 0 '叱' =~ /^\p{InJouyouKanji}$/ ? 1 : 0; # => 0 '𠮟' =~ /^\p{InJouyouKanji}$/ ? 1 : 0; # => 1 '恍惚' =~ /^\p{InJoyoKanji}+$/ ? 1 : 0; # => 0 '固唾' =~ /^\p{Lingua::JA::KanjiTable::InJoyoKanji20101130}+$/ ? 1 : 0; # => 1 '亞' =~ /^\p{InJinmeiyoKanji}$/ ? 1 : 0; # => 1 '匁' =~ /^\p{InJinmeiyoKanji}$/ ? 1 : 0; # => 1 '柊' =~ /^\p{InJinmeiyoKanji}$/ ? 1 : 0; # => 1 '苺' =~ /^\p{InJinmeiyoKanji}$/ ? 1 : 0; # => 1 '姦' =~ /^\p{InJinmeiyoKanji}$/ ? 1 : 0; # => 0
Jinmei(名) check:
use Lingua::JA::KanjiTable; use utf8; '太郎喜左衛門将時能' =~ /^\p{InJinmei}+$/ ? 1 : 0; # => 1 '愛子エンジェル' =~ /^\p{InJinmei}+$/ ? 1 : 0; # => 1 'み〜こ' =~ /^\p{InJinmei}+$/ ? 1 : 0; # => 0 'ニャー' =~ /^\p{InJinmei}+$/ ? 1 : 0; # => 1 '奈々' =~ /^\p{InJinmei}+$/ ? 1 : 0; # => 1 '〆子' =~ /^\p{InJinmei}+$/ ? 1 : 0; # => 0 sub InJinmei { return <<"END"; +Lingua::JA::KanjiTable::InJoyoKanji +Lingua::JA::KanjiTable::InJinmeiyoKanji 3005 3041\t3096 309D 309E 30A1\t30FA 30FC\t30FE END }
Lingua::JA::KanjiTable provides user-defined Unicode properties relating to Kanji.
By default Lingua::JA::KanjiTable exports the following user-defined Unicode properties:
The followings are not exported by default:
Jōyō kanji - Wikipedia, the free encyclopedia
常用漢字表(平成22年11月30日内閣告示)
Jinmeiyō kanji - Wikipedia, the free encyclopedia
人名用漢字表
戸籍法 第50条
戸籍法施行規則 第60条
Copyright (C) pawa.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
pawa <pawa@pawafuru.com>
To install Lingua::JA::KanjiTable, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Lingua::JA::KanjiTable
CPAN shell
perl -MCPAN -e shell install Lingua::JA::KanjiTable
For more information on module installation, please visit the detailed CPAN module installation guide.