El David El David - 1 month ago 7
Perl Question

use edit distance on arrays in perl

I am attempting to compare the edit distance between two arrays. I have tried using Text:Levenshtein.

#!/usr/bin/perl -w
use strict;
use Text::Levenshtein qw(distance);

my @words = qw(four foo bar);
my @list = qw(foo fear);
my @distances = distance(@list, @words);

print "@distances\n";
#results: 3 2 0 3


I however want the results to appear as follows:

2 0 3
2 3 2


Taking the first element of @list through the array of @words and doing the same through out the rest of the elements of @list.
I plan on upscaling this to a much larger arrays.

Answer

I'm not sure to understand exactly what you meant, but I think this is what you expect :

#!/usr/bin/perl -w
use strict;
use Text::Levenshtein qw(distance);

my @words = qw(four foo bar);
my @list = qw(foo fear);

foreach my $word (@list) {
   my @distances = distance($word, @words);
   print "@distances\n";
}