循环遍历两个数组,删除perl中的重叠

#!/usr/bin/perl

use strict;
use warnings;

# 创建两个数组
my @arrayA = (1, 2, 3, 4, 5);
my @arrayB = (3, 4, 5, 6, 7);

# 循环遍历数组A
for my $i (0 .. $#arrayA) {
    # 循环遍历数组B
    for my $j (0 .. $#arrayB) {
        # 比较数组A和数组B中的元素是否相等
        if ($arrayA[$i] == $arrayB[$j]) {
            # 使用splice函数删除数组A中的重叠元素
            splice(@arrayA, $i, 1);
            last; # 跳出内层循环
        }
    }
}

# 打印删除重叠元素后的数组A
print "删除重叠元素后的数组A：@arrayA\n";