in reply to Re^2: approximate regular expression
in thread approximate regular expression

As always, the Devil is in the details. Unless and until you can make clear (first to yourself, then to others) the meaning of the phrase "an approximate match to a regex", you may make but little progress. To me, for instance, the notion of a "regex match" already incorporates vague notions of fuzzyness and approximation. Just what does it mean to add approximation to approximation, or to measure its degree?

Replies are listed 'Best First'.
Re^4: approximate regular expression
by jrblas (Initiate) on Mar 25, 2012 at 07:18 UTC

    Thanks for the suggestion

    Imagine, for instance, a regexp like this

    $pattern="[^D]{2,3}FGR{2}..H";

    There is not fuzzyness on this. From a list of strings, some will match and some will NOT match this regular expression. The question is: considering ONLY substitutions, allow a maximum of 2 mismatches when evaluating if the string matches or not to $pattern. This will result in the migration of some strings from the 'non-matching group' to the 'matching group'.

    How to do this in Perl?

[reply]
[d/l]

      I don't get it (I'm a different Anonymous)

      Does this help? 

      #!/usr/bin/perl --
use strict; use warnings;
my $pattern = "JEJE";
my $string = "EJKJUJHJDJEJEJEDEJOJOJJJAHJHJSHJEFEJUJEJUJKIJS";
my $fuzzyPattern = fuzzUpEverySecond( $pattern );

print "$pattern\n$fuzzyPattern\n";
print " $string\n";
while( $string =~ m/($fuzzyPattern)/g ){
  
  print ' ' x ( pos($string) - length($1) -1 ), "^$1\n";
}

sub fuzzUpEverySecond {
    my( $pat ) = @_;
    $pat =~ s/(.)./$1./g;
    $pat;
}
__END__
JEJE
J.J.
 EJKJUJHJDJEJEJEDEJOJOJJJAHJHJSHJEFEJUJEJUJKIJS
^JKJU
    ^JHJD
        ^JEJE
                ^JOJO
                    ^JJJA
                         ^JHJS
                                  ^JUJE
                                      ^JUJK

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom