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