Tatsuya "sasata299" Sasaki > Lingua-JA-Halfwidth-0.0.6 > Lingua::JA::Halfwidth

Download:
Lingua-JA-Halfwidth-0.0.6.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.0.6   Source  

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あウ9波ヲ/;
  for (split //, $string) {
      print encode_utf8($_), ": ";
      print is_japanese_halfwidth($_), "\n";
  }
    
  # a: 0
  # あ: 0
  # ウ: 1
  # 9: 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.

syntax highlighting: