while - Ausstieg

[Gary]

Hi Struppi

Vor der Raucherpause noch eins - weil's grad so schön flutscht:
---------------------------------------------------------------------------
while(! eof(CUSTOMER)){
     my $searchzeile = <CUSTOMER>;
     my ($anrede, $dbkundennummer, $vorname, $name, $geboren, $hausnummer, $land, $plz, $ort, $telefon, $fax, $mobil, $bank, $blz, $konto, $inhaber) = split(/;/,$searchzeile);
     if($dbkundennummer eq $kundennummer){
                                         Datengeber();
                                         }
                      }
close(CUSTOMER);
---------------------------------------------------------------------------

Das Konstrukt liest zeilenweise ein. Und vergleicht die $kundennummer die der User eingegeben hat mit der ausgelesenen $dbkundennummer. Wenn sie identisch ist -> Sprung zu Datengeber(); ...

Um es vorweg zu nehmen. Das Konstrukt funktioniert! Unschön ist, daß auch wenn die gesuchte Kundennummer gefunden wurde, läuft die while -Schleife weiter - obwohl dann eigentlich überflüssig!

Ist es legitim, unterhalb von Datengeber(); mit einem (verbotenen) goto-Sprung die Schleife im Fall der Fälle zu verlassen?

Gruß Gary