如何在perl中从两个数组中分离出唯一项和重复项？

在Perl中，可以使用哈希表来从两个数组中分离出唯一项和重复项。

首先，将第一个数组的元素作为哈希表的键，将其值设置为1。然后，遍历第二个数组，如果哈希表中存在相同的键，则将其值设置为2，表示为重复项。最后，遍历哈希表，将值为1的键存储到一个新的数组中，即为唯一项。

以下是一个示例代码：

use strict;
use warnings;

sub separate_arrays {
    my ($array1, $array2) = @_;

    my %hash;
    my @unique_items;

    foreach my $item (@$array1) {
        $hash{$item} = 1;
    }

    foreach my $item (@$array2) {
        if (exists $hash{$item}) {
            $hash{$item} = 2;  # 重复项
        }
    }

    foreach my $key (keys %hash) {
        if ($hash{$key} == 1) {
            push @unique_items, $key;  # 唯一项
        }
    }

    return (\@unique_items, [grep { $hash{$_} == 2 } keys %hash]);  # 返回唯一项和重复项的数组引用
}

# 示例用法
my @array1 = (1, 2, 3, 4, 5);
my @array2 = (3, 4, 5, 6, 7);

my ($unique_items, $duplicate_items) = separate_arrays(\@array1, \@array2);

print "唯一项：@{$unique_items}\n";
print "重复项：@{$duplicate_items}\n";

这段代码将输出：