NAME
Lingua::Han::StrokeCount - Retrieve the stroke count of Chinese character.
SYNOPSIS
use Lingua::Han::StrokeCount qw/strokecount/;
my $chinese_character = "我";
my $stroke_count = strokecount($chinese_character); # now $stroke_count is 7DESCRIPTION
Retrieve the stroke count of Chinese character.
*Only* support GB2312_80 the encoding range is [\xBOA1-\xF7FE].
BE CAREFUL!!!
The encoding of the run script must *not* be uft-8.
return VALUE
if it's not a Chinese character, return -1
otherwise, return the stroke count of the character.
AUTHOR
Fayland, fayland@gmail.com
COPYRIGHT
Copyright (c) 2005 Fayland All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
1 POD Error
The following errors were encountered while parsing the POD:
- Around line 168:
Non-ASCII character seen before =encoding in '"我";'. Assuming CP1252