我想只輸出陣列中的奇數，其中數字為 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";
}
}
uj5u.com熱心網友回復：
您也可以使用grep而不是 for 回圈來做到這一點：
use strict;
use warnings;
my @zahlen = (1..100);
my @odds = grep { $_ % 2 == 1 } @zahlen;
uj5u.com熱心網友回復：
只需創建新陣列并添加奇數
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"
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/473541.html