Perlのエラー（絞込検索時にファイルロックが。。。

質問

こんにちは。よろしくお願いします。

Perlの担当者が休まれているため、急遽システムの修正～を行うことになったPerl初心者です。

Perlで作成されているシステム内の、「検索機能」の部分でエラーが出て困っています。

テキストボックスがあり、その中に文字をいれ、検索ボタンを押すと、あらかじめ登録を行っておいたデータのタイトル～にあたる部分との照らし合わせを行い、絞り込んで表示していく～ような検索機能です。
そのテキストボックスに「[」や「+」、「(」、「)」、「*」などを入力して実行させてしまうと、システムが動かなくなります。（エラー表示は無く、画面が真っ白に。

その後、そのシステムの設置フォルダと同じフォルダ内に「システムで設定した名前.txt.lock」というフォルダが作成されていて、それを削除しない限りはシステムが動きません。

原因としては、ファイルロックを行って、ファイルの中身を読み込んで、その最中に上記の検索～のための比較を行い、表示するものを格納して、ファイルロックを解除～。。。
の、比較～の部分かと思っています。

if($file[3]){
$file[3] =~ s/\ /KUGIRI_SPACE/g;
$file[3] =~ s/\　/KUGIRI_SPACE/g;
local @keyword = split(/KUGIRI_SPACE/, $file[3]);
foreach $keyword (@keyword){
@word = split(//, $keyword);
$search_keyword = shift @word;
foreach $word (@word){
if($word =~ /[^a-zA-Z0-9]/){
$search_keyword .= "\\$word";
}else{
$search_keyword .= "$word";
}
}
if($one_log[2] !~ /$search_keyword/i){
$Agreement = "NO";
}
}
}
if($Agreement eq "NO"){
undef $Agreement;
next;
}

こんな感じのソースなのですが、
「if($one_log[2] !~ /$search_keyword/i)」の部分で、比較を行っているのだと思いますが。。。

この先の原因究明～が分かりません。
ファイルのロックについてや上記ソースで気になる点など、何でもかまいませんので知恵をお貸し願えませんでしょうか？？

回答No.2

bgbg · ベストアンサー

> 「本質的な解決ではない」
> の理由が自分には分からないので、補足願えると大変助かります。

仕様としてメタキャラクタを無効にすることが適っているかどうか不明なためです。
たとえば正規表現やワイルドカードを使って検索をかけたい場合はNo1.の対策ではNGです。

そういう意味で「本質的な解決ではない」のです。
仕様上どういう動作が正しいか検証するのは実際の担当者の仕事だと思われます。

お礼

>>たとえば正規表現やワイルドカードを使って検索をかけたい場合

なるほど。。。
納得です。
システムの仕様については、確認してみたところ、特にそのような部分に関しての記述はありませんでしたので、ユーザからの問い合わせがあった場合に考えたいと思います。

仕様を変えるなら変えるで、後は担当者さんが戻ってきたら報告しておきたいと思います。

助かりました。どうもありがとうございました。

回答No.1

bgbg

応急処置的には、

if($one_log[2] !~ /$search_keyword/i){
を
if($one_log[2] !~ /\Q$search_keyword\E/i){
としてください。
\Q～\Eは間のメタキャラクタを無効にします。

しかしこれはあまり本質的な解決ではないので、担当者が復帰したらきちんと根本的な対策を練らせましょう。

お礼

こんにちは。回答ありがとうございます。

おぉ。。。
ファイルロック～のエラーに関しては取れました。はい。

http://www.site-cooler.com/kwl/perl/8.htm#metachara

メタキャら～というと、この辺ですよね？
無効にすると。。。大変なことになりませんか？？？（汗

「本質的な解決ではない」
の理由が自分には分からないので、補足願えると大変助かります。

無効にしても、検索は可能で、見た目上、正常～に動いているんですよね？＾＾；（そのように確認しましたが。

助かりました。どうもありがとうございます。