正規表現 誤入力にもマッチ

質問

単語検索のスクリプトで利用者がミスタイプしたときにもマッチするようにしたいと考えています。

例えば、１文字間違って入力した場合にもマッチするように以下のようなスクリプトを書いたのですが、もっと簡単な記述が（標準以外のモジュールを使わずに）できないでしょうか？ご教示いただけましたら嬉しいです。

以下のスクリプトでしていること・・・
hello を .ello|h.llo|he.lo|hel.o|hell. に変換してマッチ。

use strict;

my $data = "hallo";

my $query = "hello";
my $q_len = length $query;
my $query1 = $query;
my @queries;

for (my $i=0;$i<$q_len;$i++){
substr($query1, $i,1,".");
push @queries, $query1;
$query1=$query;
}

my $regex = join ("|", @queries);

if ($data=~/$regex/){
print "matched\n";
}else{
print "no match\n";
}

回答No.3

BLUEPIXY · ベストアンサー

>正規表現で　.ello|h.llo|he.lo|hel.o|hell. を簡単に記述する方法はありませんでしょうか
#あんまり変わってないけど
use strict;

my $data = "hallo";

my $query = "hello";
my @queries = ($query) x length($query);
my $i=0;
my $regex = join "|" , map { substr($_, $i++, 1, "."); $_ } @queries;
if ($data=~/$regex/){
print "matched\n";
}else{
print "no match\n";
}

お礼

ありがとうございます。BLUEPIXYさんのご回答いつも参考になります。map したのをその行の中で join できるんですね～。($query) x length($query)　も今まで見たことがありませんでした。

これ、使わせていただこうと思います。

回答No.2

osamuy

音が似ている英単語という事なら、モジュールText::Soundexを使うという手も。
use Text::Soundex;
$data = soundex( 'hello' );

print $data eq soundex( 'hallo' ) ? '' : 'no ', 'matched';

参考URL：

http://perldoc.perl.org/Text/Soundex.html

お礼

ありがとうございます！面白いモジュールがあるんですね～。勉強になりました。

回答No.1

BLUEPIXY

#とりあえず、長さが同じということであれば、
#以下のような感じでどうでしょう？
use strict;

my $data = "hallo";

my $query = "hello";
my $i=0;
my $unmatch=0;

foreach (split(//,$query)){
$unmatch++ if substr($data, $i++,1) ne $_;
}

if ($unmatch<=1){
print "matched\n";
}else{
print "no match\n";
}

補足

ご回答いただき有難うございます！大変勉強になります。foreach (split(//,$query))　とか　if substr($data, $i++,1) ne $_;　とか自分の発想の中にはありませんでした。

自分の説明がまったく不足していたのですが、実は $data には１万字以上が入る予定で、$query とその前後百字を取り出したいと思っています。

正規表現で　.ello|h.llo|he.lo|hel.o|hell. を簡単に記述する方法はありませんでしょうか。←はなからこう聞けばよかったですね。すみません・・・

?=$query(.) みたいな。
↑まったくのでたらめです・・