Rechenproblem (gelöst) - #148623 (Allgemeines zu Perl)

bianca

2011-05-15 16:08

User since
2009-09-13
6978 Artikel
BenutzerIn

user image

Hi!
Hab hier ein kleines Rechenproblem und bitte um Hilfe.
Es geht um eine Anzahl Einträge $anzahl und eine Anzahl maximaler Darstellungen $max.
Ich möchte gern, dass bei $anzahl > $max nur jeder xte angezeigt wird. Beispiel: Bei $anzahl = 20 sollen der erste, der dritte, der fünfte, also jeder zweite angezeit werden.
Bei $anzahl = 30 jeder dritte damit am Ende immer ungefähr 10 rauskommen.

Aber folgender Code löst das nicht. Warum nicht?

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use warnings;

my $max = 10;
my $anzahl = 30;

my $lfd = 0;
foreach my $nr (1..$anzahl) {
    if (
        int ($anzahl / $max) < 2
            ||
        $nr % int ($anzahl / $max)
    ) {
        $lfd ++;
        print "Nr. $nr kommt rein, Anzeige Nr. $lfd\n";
    }
}

10 print "Hallo"
20 goto 10