NAME

Lingua::JA::Halfwidth - judge given single character is japanese halfwidth or not

SYNOPSIS

use strict;
use warnings;
use Lingua::JA::Halfwidth;
use Encode qw(encode_utf8);
use utf8;

my $string = qw/aあｳ９波ｦ/;
for (split //, $string) {
    print encode_utf8($_), ": ";
    print is_japanese_halfwidth($_), "\n";
}
  
# a: 0
# あ: 0
# ｳ: 1
# ９: 0
# 波: 0
# ｦ: 1

DESCRIPTION

This module is aimed to check easily whether given single character is japanese halfwidth or not.

Target characters are japanese halfwidth katakana, punctuation, voice marks and bracket. (See also t/01.is_japanese_halfwidth.t)

Unicode block is very useful. When judging japanese halfwidth katakana and character used japanese halfwidth, we use \p{InHalfwidthAndFullwidthForms}. But, this unicode block contains fullwidth number and so on...

So, I made this module :-)

METHODS

is_japanese_halfwidth

is_japanese_halfwidth($str);

This method can judge given single character is japanese halfwidth or not. Return value is 1 (japanese halfwidth) or 0 (not japanese halfwidth).

AUTHOR

sasata299 <sasata299@livedoor.com>

http://blog.livedoor.jp/sasata299/

LICENCE AND COPYRIGHT

Copyright (c) 2009, sasata299 <sasata299@livedoor.com>. All rights reserved.

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