检查数组中数字中各个位数只和不能被求余的数

直接贴出代码：

my @numbers = qw(1 100 50 6 70 555 66 70 80 99 1 20 3);
my @odd_digit_sum = grep {
    my $sum;
    $sum += $_ for split //; #如果是100的话，那就是$sum = 1 + 0 + 0; 555 = 5 + 5 + 5;
    $sum % 2;
} @numbers;
say "@odd_digit_sum"

这个代码琢磨了下，实在看不懂。又是英文的。。。。

后来加了注释。总算搞懂了。。

my @numbers = qw(1 100 50 6 70 555 66 70 80 99 1 20 3);
my @odd_digit_sum = grep {
    my $sum;
    say "tset $_ ...........";
    $sum += $_ for split //;
    say "$sum is $sum";
    $sum % 2;
} @numbers;
say "@odd_digit_sum";