###前提・実現したいこと
Parlで名前や企業名などを入力する時の「読み仮名」に「あああ株式会社」などの漢字が混じってしまっていても、漢字が入力されていると認識されずに登録されてしまいます。
もし、「読み仮名」入力欄に漢字が入力されている場合はエラー画面を表示させたい。
###該当のソースコード
if ($FORM{'yomi'} =~ /[\x88-\x9f\xe0-\xef]/g) { &error('読みに漢字が混ざっています。1'); }
if ($FORM{'yomi'} =~ /[\x40-\x7e\x80-\xfc]/g) { &error('読みに漢字が混ざっています。2'); }
###試したこと
演算子が違うのか、もしくは文字コード(使用しているのはshift_JIS)の切り方が違うのかと少し悩み、いろいろ(!~等)を試しましたが、正規表現もわからず、文字コード指定が間違っているのか分からず困っています。
###補足情報(言語/FW/ツール等のバージョンなど)
見よう見まねでやっているので良く判りません……
前後に
if ($FORM{'word'} !~ /[\x82][\x9f-\xF1]/g) { &error('英語は使えません。'); }
if ($FORM{'yomi'} =~ /\s/) { &error('読みに半角スペースが混ざっています。'); }
とあるので、このような例を参考に記述していますが、上手くできずに困っております。
回答1件
あなたの回答
tips
プレビュー