数组上的 perl String::Approx

Question

我正在使用 String::Approx 来查找两个最相似的匹配-其他列表中的项目数组。我惊喜地发现您可以使用 amatch() 来比较数组与数组，尽管该功能没有文档记录；我准备编写自己的函数来做到这一点。我更惊讶地发现元素的顺序并不重要。但是，尽管 amatch() 工作完美，但我在使用 adist() 时遇到了困难。考虑以下程序：

#! /usr/bin/perl

use String::Approx qw (amatch adist);

@matches = qw();
%matchhash = qw();
@matchstr = qw(cat dog);
@poss = (['rat', 'hog'],
     ['gnat', 'frog'],
     ['giraffe', 'elephant'],
     ['dig', 'bat'],
     ['catatonic', 'doggone'],
     ['care', 'dog'],
     ['care', 'ding'],
     ['hawk', 'shark']);

@matches = grep { amatch (@matchstr, @$_) } @poss;

foreach $k (@matches)
{
    $dist = adist( @matchstr, @$k );
    print "@matchstr has a difference from @$k of $dist \n";
}

这是它的输出：

cat dog has a difference from rat hog of 3
cat dog has a difference from gnat frog of 3
cat dog has a difference from dig bat of 3 
cat dog has a difference from catatonic doggone of 3
cat dog has a difference from care dog of 3
cat dog has a difference from care ding of 3

因此，它似乎选择了正确的答案（它忽略了 ['giraffe', 'elephant'] 和 ['hawk', ' shark']），但它无法告诉我距离。最终目标是按距离对比赛进行排序，并选择最像 @matchstr 的一场。 amatch() 是否真的像我想象的那样工作，或者我只是使用了太简单的输入？为什么 amatch() 不起作用？

Answer 1

您不能将数组作为第一个参数传递给 amatch 或 adist 并让它按您的预期工作。

数组被解压成列表，所以 amatch 看到的是类似 amatch( 'cat', 'dog', 'rat', 'hog' ) 的东西，这当然不是你想要的。

您必须创建支持数组引用作为第一个参数的新版本的 amatch 和 adist。然后，您需要将 subs 调用为 my_amatch(\@matchstr, @$_)

Answer 2

amatch 并没有按照你的想法去做。

如果将 qw(cat dog) 更改为 qw(cat zzz)，您会得到相同的结果。

然后，如果将“hawk”、“shark”更改为“hawk”、“zzz”，您仍然会得到相同的结果。

看起来只是与“猫”进行比较。