Lingua::Han::StrokeCount - Retrieve the stroke count of Chinese character.

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 7

Retrieve the stroke count of Chinese character.

*Only* support GB2312_80 the encoding range is [\xBOA1-\xF7FE].

The encoding of the run script must *not* be uft-8.

if it's not a Chinese character, return -1

otherwise, return the stroke count of the character.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Lingua::Han::StrokeCount - Retrieve the stroke count of Chinese character.