ホームページ作成の第一歩【Perl 文字の正規表現】# 半角スペース $spc = '\x20'; # 全角スペース $eSpc = '(?:\xA1\xA1)'; # EUC-JP $sSpc = '(?:\x81\x40)'; # SJIS # 全角数字 [０-９] $eLng = '(?:\xA3[\xB0-\xB9])'; # EUC-JP $sLng = '(?:\x82[\x4F-\x58])'; # SJIS # 全角小英字 [ａ-ｚ] $estr = '(?:\xA3[\xE1-\xFA])'; # EUC-JP $sstr = '(?:\x82[\x81-\x9A])'; # SJIS # 全角大英字 [Ａ-Ｚ] $eStr = '(?:\xA3[\xC1-\xDA])'; # EUC-JP $sStr = '(?:\x82[\x60-\x79])'; # SJIS # 全角ひらがな [ぁ-ん] $eHira = '(?:
