文字の正規表現 - Perl半角スペース $space = '\x20'; 全角スペース $Zspace = '(?:\xA1\xA1)'; # EUC-JP $Zspace_sjis = '(?:\x81\x40)'; # SJIS 全角数字 [０-９] $Zdigit = '(?:\xA3[\xB0-\xB9])'; # EUC-JP $Zdigit_sjis = '(?:\x82[\x4F-\x58])'; # SJIS 全角大文字 [Ａ-Ｚ] $Zuletter = '(?:\xA3[\xC1-\xDA])'; # EUC-JP $Zuletter_sjis = '(?:\x82[\x60-\x79])'; # SJIS 全角小文字 [ａ-ｚ] $Zlletter = '(?:\xA3[\xE1-\xFA])'; # EUC-JP $Zlletter_sjis = '(?:\x82[\x81-\x9A])';
