某会員管理システム（うちで作ったものではない）の話。
金融機関からのデータとの連係を始めたところ、更新画面でカナ氏名やカナ住所がエラーチェックに引っかかってしまってデータの更新が出来ないとのこと。
どうも、金融機関のデータというのが、ホストマシン上の半角カナデータを単純に全角に変換しただけで、例えば「ダ」が「タ」＋「゛」、「ポ」が「ホ」＋「゜」で送られてきている。で、この「゛」や「゜」が「全角カタカナではない」と判断されてエラーになっているようだ。
ソースを見てみると、
if ($kana_name !~ /^(([\xA3][\xB0-\xB9])|([\xA5][\xA1-\xF6])|([\xA3][\xC1-\xDA])|([\xA3][\xE1-\xFA])|([\xA1][\xA1])|([\xA1][\xA6])|([\xA1][\xBC])|([\xA1][\xDD]))*$/) {
&error_proc('全角カナ以外の文字有り'); # エラー処理へ
}
ってなってる。
EUC コードで、
[\xA3][\xB0-\xB9] １～９
[\xA5][\xA1-\xF6] ァアィイ～ヵヶ
[\xA3][\xC1-\xDA] Ａ～Ｚ
[\xA3][\xE1-\xFA] ａ～ｚ
[\xA1][\xA1] ＜全角スペース＞
[\xA1][\xA6] ・（中点）
[\xA1][\xBC] ー（長音符号（音びき符号））
[\xA1][\xDD] －（マイナス（ハイフン））
なので、これに、
[\xA1][\xAB-\xAC] ゛（濁音）、゜（半濁音）
を追加する必要があるね。
if ($kana_name !~ /^(([\xA3][\xB0-\xB9])|([\xA5][\xA1-\xF6])|([\xA3][\xC1-\xDA])|([\xA3][\xE1-\xFA])|([\xA1][\xA1])|([\xA1][\xA6])|([\xA1][\xBC])|([\xA1][\xDD])|([\xA1][\xAB-\xAC]))*$/) {
&error_proc('全角カナ以外の文字有り'); # エラー処理へ
}
にすればＯＫだ。
まあ、会員情報をカナで検索することを考えると、登録時に「タ゛」は「ダ」に、「ホ゜」は「ポ」に変換してしまった方がきれいだと思うが・・・
