I want to output only the odd numbers from an array with the numbers from 1-100 in a new array. I have no idea how to do this.
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";
}
}
Just create new array and add the odd numbers
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"