Ungerade und Gerade Zahlen

[Frank Schönmann]

hi!

Gibt es in Perl einen Befehl,
Der mir direkt aus einem Zahlenreihe (z.B. 1-1000)
aller ungeraden (bzw.geraden) Zahlen herausnimmt ?

Wofür gibt es den Modulo-Operator %?

=== cut ===
for (my $i = 0; $i < 1000; $i++)
{
  if ($i % 2)
  {
    print "$i - ungerade\n";
  }
  else
  {
    print "$i - gerade\n";
  }
}
=== cut ===

"$i % x" liefert als Ergebnis den Rest von "$i geteilt durch x", also
die Zahl, die später nicht mehr durch x geteilt werden kann, weil sie
zu klein ist.

bye, Frank!