2008年08月25日

正規表現で、文字列は全て全角文字か?のチェック(Perl編)


#全て全角文字か?
#Perlの正規表現で、渡された文字列が全て全角文字かチェックします。(UTF-8向け)
#Perl 正規表現 全角文字 UTF8
$str = "ABCDEFXYZあいうえおカキクケコ@!+*_";
if ( $str !~ /(?:\xEF\xBD[\xA1-\xBF]|\xEF\xBE[\x80-\x9F])|[\x20-\x7E]/ ) {
print encode('shift-jis', decode('utf-8', "すべてが全角である\n"));
} else {
print encode('shift-jis', decode('utf-8', "すべてが全角ではない\n"));
}
#↓
#"すべて全角である"

posted by 台北猫々 at 22:34| Comment(0) | TrackBack(0) | 技術メモ(Perl)
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのトラックバックURL
http://blog.sakura.ne.jp/tb/18375825

この記事へのトラックバック