Unicodeブロック
#!perl use strict; use warnings; use utf8; my $str = 'カタカナ'; if ($str =~ /^\p{InKatakana}+$/) { warn 'match'; } else { warn 'not match'; }
初めて知った。
FormValidator::Liteのソースを読んでたら出くわした。
詳しくはperldoc perlunicodeあたりかな。
#!perl use strict; use warnings; use utf8; my $str = 'カタカナ'; if ($str =~ /^\p{InKatakana}+$/) { warn 'match'; } else { warn 'not match'; }
初めて知った。
FormValidator::Liteのソースを読んでたら出くわした。
詳しくはperldoc perlunicodeあたりかな。