foreach-Anweisung

[Jens]

hi!

Tach,

while (chomp($_) = <DATEI>)
{
  $gefunden = 1 if $_ eq $eingabe
}
$gefunden = ($_ eq $eingabe);

1 while (
  chomp($_ = <DATEI>) and
  !($gefunden = $_ eq $eingabe)
);

Jens