I
iceman99
Jungspund
Hallo,
ich versuche mich gerade in einer verschachtelten while-Schleife.
Warum wird die erste Schleife nur einmal durchlaufen? Was kann ich ändern?
#!/usr/bin/perl -w
use strict;
@PORTS=(21,22,25,53,66,80,81,110,118,119,150,156);
$ZAEHLER=0;
open(FILE,"hosts.list") || die "Fehler beim Öffnen der Datei: $!\n";
while(defined(my $i = <FILE>)) {
while ($ZAEHLER <= 11) {
print "$i $PORTS[$ZAEHLER]";
$ZAEHLER++;
}
}
Bis dann
ich versuche mich gerade in einer verschachtelten while-Schleife.
Warum wird die erste Schleife nur einmal durchlaufen? Was kann ich ändern?
#!/usr/bin/perl -w
use strict;
@PORTS=(21,22,25,53,66,80,81,110,118,119,150,156);
$ZAEHLER=0;
open(FILE,"hosts.list") || die "Fehler beim Öffnen der Datei: $!\n";
while(defined(my $i = <FILE>)) {
while ($ZAEHLER <= 11) {
print "$i $PORTS[$ZAEHLER]";
$ZAEHLER++;
}
}
Bis dann