如何比较压缩数组

Question

我有一组这样打包的数组：

sub pack_key {
     return pack 'N' . ('w/a*' x @_), scalar(@_), @_;
}

因为我将它们用作哈希中的多值键（即，哈希的键是数组）。

如果打包数组中的前n个元素相同，是否有任何快速的比较方法？ 或做相反的事情-比较最后m个元素是否不同？

有一个明显的解决方案，就是解压缩，并使用smartmatch运算符（~~），但我正在寻找直接在打包阵列上运行的东西。

谢谢。

Answer 1

因为您已经打包了嵌入了长度的任意长度数据，所以答案是否定的，就没有比较两个字符串的快速方法。 您必须一次遍历字符串中的一个组成部分。

这是一个可行的解决方案。

注意：这取决于您使用单字节字符编码的Perl安装。 这通常是正确的，但是如果不是这样，请查看“ 编码”以确保将这些字符串视为字节。

use strict;
use warnings;

my @arr1 = (1,2,3,4,5);
my @arr2 = (1,2,3,4,8);

sub pack_key {
     return pack 'N' . ('w/a*' x @_), scalar(@_), @_;
}

sub n_elements_equal {
    my ($compare_length,$k1,$k2) = @_;
    my $length1 = unpack('N',$k1);
    my $length2 = unpack('N',$k2);
    if ($length1<$compare_length or $length2<$compare_length) { return 0; }

    my $curr_pos = 4;
    my $curr_element = 1;

    while ($curr_element++ <= $compare_length)
    {
        my $el1 = unpack('w/a*',substr($k1,$curr_pos));
        my $el2 = unpack('w/a*',substr($k2,$curr_pos));
        if ($el1 ne $el2) { return 0; }
    $curr_pos += (unpack('w',substr($k1,$curr_pos)) + 1);       
    }
    return 1;
}

my $key1 = pack_key(@arr1);
my $key2 = pack_key(@arr2);

for (1..5)
{
    print "First $_ elements are " . 
        (n_elements_equal($_,$key1,$key2) ? '' : 'not ') . "equal.\n"; 
}

这比仅打开包装并进行智能匹配更好吗？ 如果您的阵列真的很长，那会更快，因为您不必解压整个阵列。 它只会遍历字符串，直到确定匹配状态为止。 如果数组不是很长，则可能不会为您节省任何费用。

最好通过更改设计来解决此问题。 但这取决于您在做什么。