半角と全角を比較する

Question

お世話になります

あるフォームから渡ってきたキーワードをCSVファイルと比較して検索結果を表示するのですが全角、半角ではじかれてしまいうまく動作しません

下記にソースを記載します

---

① foreach(@shop_dat){
② local($shop_region,$shop_name,$shop_postal,$shop_adress,$shop_tel) =
split(/,/,$);
③ if( ($shop_name =~ /\Q$in{'shop'}\E/i || $in{'shop'} eq '')){
④ push(@result,$);
}
}

①CSVファイルの行でループ
②CSVから読込んだ1行をカンマで分割（カンマ区切りのため）
③フォームで入力された「in{'shop'}」とCSVの店舗カラム「$shop_name」を比較
（部分一致）
④該当すれば、別変数に一時保管
（全行を参照してループ終了し、④で保管した結果を一覧表示）

以上です。

ご教授いただければ幸いです。

---

追記

このコードは他の人が書いたもので、私はparlのことがよくわからなく質問しています。
いろいろ見てるうちに気づいたのですが、そもそもフォームから渡ってきた$shop_name を何も変換せずに比較しているように見えるので、普通に考えたら、最初に両方の変数を全、半角に変換して（統一して）比較するのが自然かと思うのですが、違いますでしょうか？

素人なものでよろしければコード込みでご教授いただければ幸いです。

以上、宜しくお願い致します。

Answer 1

はい、言われる通り、半角か全角へ統一して比較しないと思った結果となりません。

半角や全角への変換方法ですが・・・
ソースを見た感じ結構古い作りと予想します。
きっと、jcode.pl を読み込んで使用しているのでは・・・？
であるなら、jcode.plを使って変換するのが簡単で早いと思います。

require 'jcode.pl';
my $zenkaku = '０-９ａ-ｚＡ-Ｚ'; # 全角英数字
my $hankaku = '0-9a-zA-Z';  # 半角英数字

my $str = '１２３ａｂｃＡＢＣ';
&jcode::tr(\$str, $zenkaku, $hankaku);

print $str;

これで、$strの文字列は全角英数字から半角英数字へ変換されます。
もしも半角英数字から全角英数字へ変換したい場合は、
&jcode::tr($str, $hankaku, $zenkaku);
と、第２、第３引数を逆にするとできます。

この、jcode::trは便利なのですが弱点があり、「euc」文字コード以外では正常動作しません。
もし、sjis(cp932)のソースの場合は一度eucへコンバートしてsjisへ戻すような処理が必要となります。

Comments

[shinoda]

お世話になっております。
ご回答有難うございます。
仰るとおりに古い（作成した方があまりparlの知識がない）ものでした。
またjcodeを使用していました。

＞この、jcode::trは便利なのですが弱点があり、「euc」文字コード以外では正常動作
＞しません。
＞もし、sjis(cp932)のソースの場合は一度eucへコンバートしてsjisへ戻すような
＞処理が必要となります。

上記の件ですがこのコードはUTF-8で作成されているものなのですが、【euc】に変換して、UTF-8に戻すといった処理で大丈夫でしょうか？またUTF-8なら他にもいい方法などがあるのでしょうか？

独自に調べていてparlのverによっては短いコードで実装できるようですが、使っているparlのverは5.1.4となっておりました。

ひとまず課題はクリア出来ましたのでベストアンサーとさせていただきます。
ご教授ありがとうございました。

追記で便利な方法等があればご教授いただければ幸いです。

以上、ありがとうございました。

[circus55]

あれ？utf8のソースにjcode.plを使用？？
Jcode.pmを使っているのかな・・？
Perlは5.14の間違いでしょうか？
Perl5.1とはすごく古すぎる・・・というか、5.1って見たことないです＾＾；

ソースがutf8であれば、内部コードにして変換するのが簡単だと思います。

my $target_str = "０１２ａｂｃＡＢＣ";
my $convert = sub {
use utf8;
use Encode;

my $utf8flg = decode_utf8($target_str);
$utf8flg =~ tr/０-９ａ-ｚＡ-Ｚ/0-9a-zA-Z/;
return encode_utf8($utf8flg);
}->();

このようにスコープ作って変換すれば他への影響もなく簡単にできます。