#!/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.3 $=~/\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', Senjimon => 'SenjimonJP', ); $PROP{pod_example} = <<'EOH'; use utf8; use 5.7.3; use Char::InSet::Han qw(InHanJP_Jimmei InHanJP_JimmeiKyoyou); $s = q(琉球諸島); ## Marks han characters included in 人名用漢字表・人名用漢字許容字体表 $s =~ s/(\p{InHanJP_Jimmei}|\p{InHanJP_JimmeiKyoyou})/*$1/g; print $s; ## *琉球諸島 EOH $PROP{pod_see_also} = 'perlunicode 漢字表一覧 (List of Kanji tables) 学年別漢字配当表 千字文: =over 4 =item =item =item =item =back '; $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/09/07 10:33:52 $ ### Han-src.upl ends here