Blog

Perl5 で半角カタカナにマッチする正規表現を簡単にかく方法について

にしても、こちらのサイトでも言われていますが、なぜ半角カナ専用のUnicodeブロックがないのかと小一時間(ry

http://blog.livedoor.jp/sasata299/archives/51194035.html
http://d.hatena.ne.jp/pasela/20081003/ll_unicode

ということで、

sub InHankakuKatakana { "FF65\tFF9F" }

という一行をはっつけると、つかえるようになりますね。

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Test::More;

sub InHankakuKatakana { "FF65\tFF9F" }

ok("\x{FF65}" =~ qr/\p{InHankakuKatakana}/);
ok("abc" !~ qr/\p{InHankakuKatakana}/);

done_testing;

そういうモジュールがあってもいいかとおもったけど、一行コピペですんじゃうので、どうしたもんかなーっとおもったところ。