如何在新数组中实现奇数？

Question

我只想输出一个数组中的奇数，新数组中的数字为 1-100。我不知道该怎么做。

use strict;
use warnings; 

my @zahlen = (1..100);

foreach my $zahlen (@zahlen){
    if ($zahlen % 2) {
        print "$zahlen ist ungerade\n";
    } else {
        print "$zahlen ist gerade\n";
    }
}

Answer 1

只需创建新数组并添加奇数

use strict;
use warnings;


my @zahlen = (1..100);
my @ungerade;
my $i = 0;

foreach my $zahlen (@zahlen){
    if ($zahlen % 2){
        $ungerade[$i] = $zahlen;
        $i = $i + 1;
    }

}

print "@ungerade"

Answer 2

您也可以使用 grep 而不是 for-loop:

use strict;
use warnings; 

my @zahlen = (1..100);
my @odds = grep { $_ % 2 == 1 } @zahlen;

如何在新数组中实现奇数？

how to implement odd numbers in a new array?

arrays

perl