## This file is auto-generated (at 2008-11-24T04:21:25Z). ## Do not edit by hand! use strict; package Char::Class::Han; our $VERSION = '1.03'; use Exporter; use vars qw(@EXPORT_OK @ISA $VERSION); @ISA = qw(Exporter); =head1 NAME Char::Class::Han - Regular Expression Character Classes - C =cut sub import ($;@) { my ($self, @sub) = (shift, @_); for (@sub) { no strict 'refs'; *{'main::'.$_} = \&{$_}; } $Exporter::ExportLevel = 1; $self->SUPER::import (@_); $Exporter::ExportLevel = 0; } @EXPORT_OK = qw(InHanJP_Hyougai2000 InHanJP_HyougaiSimplified2000 InHanJP_HyougaiStandard2000 InHanJP_Jimmei1951 InHanJP_Jimmei1976 InHanJP_Jimmei1981 InHanJP_Jimmei1990 InHanJP_Jimmei1997 InHanJP_JimmeiKyoyou1981 InHanJP_Jouyou1981 InHanJP_Kyouiku1989 InHanJP_Kyouiku1st1989 InHanJP_Kyouiku2nd1989 InHanJP_Kyouiku3rd1989 InHanJP_Kyouiku4th1989 InHanJP_Kyouiku5th1989 InHanJP_Kyouiku6th1989 InHanJP_Touyou1949 InHanJP_TouyouDraft1954 InHanSenjimonJP InHanJP_Hyougai InHanJP_HyougaiSimplified InHanJP_HyougaiStandard InHanJP_Jimmei InHanJP_JimmeiKyoyou InHanJP_Jouyou InHanJP_Kyouiku InHanJP_Kyouiku1998 InHanJP_Kyouiku1st InHanJP_Kyouiku1st1998 InHanJP_Kyouiku2nd InHanJP_Kyouiku2nd1998 InHanJP_Kyouiku3rd InHanJP_Kyouiku3rd1998 InHanJP_Kyouiku4th InHanJP_Kyouiku4th1998 InHanJP_Kyouiku5th InHanJP_Kyouiku5th1998 InHanJP_Kyouiku6th InHanJP_Kyouiku6th1998 InHanJP_Touyou InHanSenjimon); sub InHanJP_Hyougai2000 { &InHanJP_HyougaiStandard2000. &InHanJP_HyougaiSimplified2000. '' } sub InHanJP_HyougaiSimplified2000 { < An alias for InHanJP_Hyougai2000. =item C =item C An alias for InHanJP_HyougaiSimplified2000. =item C =item C An alias for InHanJP_HyougaiStandard2000. =item C =item C An alias for InHanJP_Jimmei1997. =item C =item C =item C =item C =item C =item C An alias for InHanJP_JimmeiKyoyou1981. =item C =item C An alias for InHanJP_Jouyou1981. =item C =item C An alias for InHanJP_Kyouiku1989. =item C =item C An alias for InHanJP_Kyouiku1989. =item C An alias for InHanJP_Kyouiku1st1989. =item C =item C An alias for InHanJP_Kyouiku1st1989. =item C An alias for InHanJP_Kyouiku2nd1989. =item C =item C An alias for InHanJP_Kyouiku2nd1989. =item C An alias for InHanJP_Kyouiku3rd1989. =item C =item C An alias for InHanJP_Kyouiku3rd1989. =item C An alias for InHanJP_Kyouiku4th1989. =item C =item C An alias for InHanJP_Kyouiku4th1989. =item C An alias for InHanJP_Kyouiku5th1989. =item C =item C An alias for InHanJP_Kyouiku5th1989. =item C An alias for InHanJP_Kyouiku6th1989. =item C =item C An alias for InHanJP_Kyouiku6th1989. =item C An alias for InHanJP_Touyou1949. =item C =item C =item C An alias for InHanSenjimonJP. =item C =back =cut =head1 EXAMPLE 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; ## *琉球諸島 =head1 SEE ALSO perlunicode 漢字表一覧 (List of Kanji tables) 学年別漢字配当表千字文: =over 4 =item =item =item =item =back =head1 LICENSE Copyright 2008 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.) =cut 1; ### Han.pm ends here