ホームページ作成の第一歩【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 = '(?:

[oinume]

EUC文字列の正規表現

[C_L]

Perl5.8時代なんだからこれらをバッドノウハウとして葬り去るようにした方がいいと思うんだよね