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
In reply to Re^5: approximate regular expression
by Anonymous Monk
in thread approximate regular expression
by jrblas
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |