#!/usr/local/bin/perl use utf8; ## This file is written in UTF-8 use strict; require 'mkpm.pl'; use vars qw(%PROP %SET %SET_ALIAS); $PROP{module_name} = 'Han'; $PROP{version} = do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; ## 当用漢字表 日本国内閣告示 (1946, 1850 characters) ## ammended by 当用漢字字体表 日本国内閣告示 (1949) $SET{_JP_Touyou1949} = < '_JP_Hyougai2000', _JP_HyougaiStandard => '_JP_HyougaiStandard2000', _JP_HyougaiSimplified => '_JP_HyougaiSimplified2000', _JP_Jimmei => '_JP_Jimmei1997', _JP_JimmeiKyoyou => '_JP_JimmeiKyoyou1981', _JP_Jouyou => '_JP_Jouyou1981', _JP_Kyouiku => '_JP_Kyouiku1989', _JP_Kyouiku1st => '_JP_Kyouiku1st1989', _JP_Kyouiku2nd => '_JP_Kyouiku2nd1989', _JP_Kyouiku3rd => '_JP_Kyouiku3rd1989', _JP_Kyouiku4th => '_JP_Kyouiku4th1989', _JP_Kyouiku5th => '_JP_Kyouiku5th1989', _JP_Kyouiku6th => '_JP_Kyouiku6th1989', _JP_Kyouiku1998 => '_JP_Kyouiku1989', _JP_Kyouiku1st1998 => '_JP_Kyouiku1st1989', _JP_Kyouiku2nd1998 => '_JP_Kyouiku2nd1989', _JP_Kyouiku3rd1998 => '_JP_Kyouiku3rd1989', _JP_Kyouiku4th1998 => '_JP_Kyouiku4th1989', _JP_Kyouiku5th1998 => '_JP_Kyouiku5th1989', _JP_Kyouiku6th1998 => '_JP_Kyouiku6th1989', _JP_Touyou => '_JP_Touyou1949', ); $PROP{pod_example} = <<'EOH'; use utf8; use 5.7.3; use Char::InSet::Han qw(InHan_JP_Jimmei InHan_JP_JimmeiKyoyou); $s = q(琉球諸島); ## Marks han characters included in 人名用漢字表・人名用漢字許容字体表 $s =~ s/(\p{InHan_JP_Jimmei}|\p{InHan_JP_JimmeiKyoyou})/*$1/g; print $s; ## *琉球諸島 EOH $PROP{pod_see_also} = 'perlunicode 漢字表一覧 (List of Kanji tables) 学年別漢字配当表 '; $PROP{pod_license} = "Copyright @{[(gmtime)[5]+1900]} Wakaba This library and the library generated by it is free software; you can redistribute them and/or modify them under the same terms as Perl itself. This library uses tables made by Aozora Bunko . It claims that: この資料は、自由に使ってください。加工、再配布に際しても、 青空文庫への連絡は必要ありません。校正には努めましたが、 信頼性は保証できません。この資料を利用したことで何らかの不利益が生じても、 責任は負えません。 (You can use, modify, redistribute this resource freely, although there is no warranty.) "; &print_module; ## $Date: 2002/08/23 13:35:34 $ ### mkhan.upl ends here