6.13 あいまいマッチング

Perl Cookbook

マッチングをファジィに行いたい。ある程度のエラーを許容し、文字列がパターンに正確にマッチしない場合でも、マッチと判定されるようにする。

CPANモジュールString::Approxを使用する。

use String::Approx qw(amatch);

if (amatch("PATTERN", @list) {
  # マッチした場合の処理
}

@matches = amatch("PATTERN", @list);