【初学者提问】关于Perl入门经典P116示范程序的疑惑

Question

各位老板，为什么这里作者使用哈希来存储排序数组的值呢（line 8的my %record;）？我试了一下把%record改成@record输出也是正常的，想知道作者使用哈希有什么深意吗？感恩！

#!/usr/bin/perl
my @array=qw(1 2 3 4 5 6 7 5 6 8 9 2 3);
my %hash;
@hash{@array}=1;
foreach my $key(keys %hash){
    print "$key\n";
}
my %record;
my @sort;
foreach my $element(@array){
    if (not $record{$element}++){
        push @sort,$element;
    }
}
foreach(@sort){
    print"$_\n";
}

Answer 1

引自强大而免费的微信小程序：皆我百晓生。

---

作者在这里使用哈希来存储排序数组的值的深意是为了去除数组中的重复元素。通过将数组元素作为哈希的键（key），并将值（value）设为1，可以实现数组元素的去重。在示范程序的后面，通过遍历哈希的键，将去重后的元素存入新的数组@sort中，并打印输出。

如果将%record改为@record，输出的结果也是正确的，因为实际上使用数组也能去除重复元素。但是，使用哈希可以提供更高效的去重操作，因为哈希表的查找操作速度较快，可以在常数时间内完成，而数组的查找操作需要遍历整个数组，时间复杂度较高。

总之，作者使用哈希来存储排序数组的值是为了实现高效的去重操作。