如何用Perl为数组所有元素编写奇偶判断条件语句？

嘿，要处理数组里的所有元素，咱们用循环遍历就可以啦！你现在的代码只针对数组第一个元素操作，只需要把判断逻辑放到循环里，逐个处理每个元素就行。

核心思路：用foreach遍历数组 #

Perl里遍历数组最直观的方式就是foreach循环，它会逐个取出数组中的元素，你只需要对每个元素执行奇偶判断逻辑即可。另外注意几个小细节：

• 避免用$a作为普通变量（它是Perl排序专用的特殊变量），换个清晰的变量名比如$num
• split(/ /)在遇到连续空格时会生成空元素，改用split ' ', $numbers更健壮（自动忽略首尾空白、合并连续空白为分隔符）

修改后的完整代码（保留你原来的>10判断） #

#! /usr/bin/perl
use warnings;
use strict;

my $numbers='23 45 34 12 9 3 56';
chomp $numbers;
# 用更健壮的split方式分割字符串为数组
my @getnum = split ' ', $numbers;

# 遍历数组中的每一个元素
foreach my $num (@getnum) {
    # 保留你原来的"大于10"判断逻辑
    if ($num > 10) {
        if ($num % 2 == 0) {
            print "$num is even\n";
        } else {
            print "$num is odd\n";
        }
    } else {
        # 可选：处理小于等于10的元素，这里也加上奇偶判断
        my $odd_even = $num % 2 == 0 ? 'even' : 'odd';
        print "$num is <=10 and $odd_even\n";
    }
}

简化版本（如果不需要>10的判断） #

如果不需要筛选大于10的元素，直接遍历所有元素做奇偶判断，代码可以更简洁：

#! /usr/bin/perl
use warnings;
use strict;

my $numbers='23 45 34 12 9 3 56';
chomp $numbers;
my @getnum = split ' ', $numbers;

foreach my $num (@getnum) {
    # 用三元运算符简化判断逻辑
    my $type = $num % 2 == 0 ? 'even' : 'odd';
    print "$num is $type\n";
}

运行结果（简化版本） #

执行后会输出：

23 is odd
45 is odd
34 is even
12 is even
9 is odd
3 is odd
56 is even

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