corfuitl has asked for the wisdom of the Perl Monks concerning the following question:
hi,
I want to find the max fuzzy matching between a sentence in a file and a sentence in another file. I have already the following code, but something goes wrong and it does not work. In addition, How can I get the max fuzzy matching?
#!/usr/bin/perl use String::Approx qw(amatch); use Text::Fuzzy; my $f1='bmc_pe.it.txt'; open (FILE1, "<:encoding(utf8)", $f1) or die "can't open file '$f1' $! +"; my @mt = <FILE1>; my $f2='bmc_mt.it.txt'; open (FILE2, "<:encoding(utf8)", $f2) or die "can't open file '$f2' $! +"; my @tm = <FILE2>; my $max=0; my $lm; my $i, $j; for $i (0 .. $#mt) { for $k (0 .. $#tm) { print if amatch($mt[$i], $mt[$k] ['i', '25%']); }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: find the max fuzzy matching - perl
by kcott (Archbishop) on Oct 26, 2013 at 05:48 UTC | |
Re: find the max fuzzy matching - perl
by ww (Archbishop) on Oct 25, 2013 at 23:28 UTC |
Back to
Seekers of Perl Wisdom