Perl5 で半角カタカナにマッチする正規表現を簡単にかく方法について - tokuhirom's blog
にしても、こちらのサイトでも言われていますが、なぜ半角カナ専用のUnicodeブロックがないのかと小一時間（ｒｙ 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" !~
半角英数をチェックする。 - NOBODY:PLACE - MUTTER
正規表現を使って、半角英数をチェックする。 基本的には、[a-z]、[A-Z]などを利用する。 半角英字：[a-z][A-Z] 半角数字：[0-9]または\d 半角英数字：[a-zA-Z0-9] 使用例： if(preg_match("/^[a-zA-Z0-9]+$/", $str)){ print "すべて半角英数である"; } else { print "すべて半角英数ではない"; } 半角記号までチェックする場合には、 ASCII文字コード表を参考に設定する。 例えば、 [!-/]と設定すれば、!から、/までの記号を表現することが出来る。 これを参考に、半角の英字、数字、記号を表現すると、 [!-~]となる。 使用例： if(preg_match("/^[!-~]+$/", $str)){ print "すべて半角英数記号である"; } else {
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
screen をインストールする (talk to oneself 2)
