Perl中foreach遍历数组时如何判断到达最后一个元素执行后续处理

核心需求：使用foreach遍历数组时，仅当当前元素为数组最后一个元素（无后续待处理元素）时执行特定逻辑，其余情况跳过后续处理直接进入下一轮迭代。

方案1：引用比对法（最简洁的原生foreach写法） #

Perl的foreach循环中，循环变量是当前遍历元素的别名而非拷贝，因此可以直接通过内存地址比对判断当前元素是否为数组最后一位，无需额外维护计数器变量：

my @array = ("abc","def","ghi");
foreach my $elem (@array) {
    print "I am inside array\n";
    # 非最后一个元素直接跳过后续逻辑
    next unless \$elem == \$array[-1];
    print "i did this because there is no elements afterwards in array\n";
}

注意：该方法适用于遍历过程中不增删数组元素的场景，如果遍历中会修改数组长度，建议提前缓存最后一个元素的引用。

方案2：索引遍历法（逻辑最直观，适配动态修改数组场景） #

如果遍历过程中可能调整数组长度，或者觉得引用比对不够直观，可以直接遍历数组下标，借助Perl内置的$#array变量（存储数组最后一个元素的下标）直接判断，不需要手动维护累加计数器：

my @array = ("abc","def","ghi");
foreach my $idx (0 .. $#array) {
    my $elem = $array[$idx];
    print "I am inside array\n";
    # 下标不等于最后一位时直接跳过
    next unless $idx == $#array;
    print "i did this because there is no elements afterwards in array\n";
}

你之前手动维护$index变量写while循环的思路是可行的，但冗余度较高，直接使用内置的$#array变量可以省去手动计数、手动比对数组长度的重复代码。

注意：如果遍历过程中会增删数组元素，建议在循环开始前提前缓存原始数组的最后一位下标，避免数组长度变动导致判断逻辑出错。

内容的提问来源于stack exchange，提问作者PPP