There seems to be remaining problems, for example:
#!/usr/bin/perl -w
use strict;
use lib '.';
use Regexp::Approx 'fuzzy_qr';
use re 'eval';
while(<DATA>) {
chomp;
print "Using '$_' as fuzzy component:\n";
my $fuzzy_part = fuzzy_qr( $_ );
my $rx = qr/($fuzzy_part)/;
if ( "5678 DELAWARE AVENUE AOT 123" =~ /$rx/ ) {
print "\tRX Match: $1\n";
}
}
__END__
APT
A
XXX
^%@#!(
fuzzy matches anything?
x
#### output:
Using 'APT' as fuzzy component:
RX Match: AO
Using 'A' as fuzzy component:
RX Match: 5
Using 'XXX' as fuzzy component:
amatch: $_ is undefined: what are you matching?
Compilation failed in require at xxx.pl line 4, <GEN0> line 51.
BEGIN failed--compilation aborted at xxx.pl line 4, <GEN0> line 51.
Using '^%@#!(' as fuzzy component:
Broken pipe
### platform:
$ perl -v
This is perl, v5.8.0 built for i686-linux
|