foreach-Anweisung

[Christof]

Hallo.
Ich habe folgendes Problem:
Ich habe eine Datei mit Namen. Das Perl-Script soll mir den Namen aus der Datei suchen, der in $eingabe angegeben ist.
Wenn in der Datei mailadress.txt nur ein Eintrag vorhanden ist, ist das auch kein Problem, aber sobald mehr als ein Eintrag in der Datei ist, funktioniert es nicht. Jeder Name ist auch eine einzelne Zeile in der Datei.
Über ein rasche Hilfe würd ich mich sehr freuen.
Christof

my $eingabe = 'christof';

open(DATEI, "<mailadress.txt") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);
$gefunden='false';
foreach(@Zeilen) {
  if ($_ eq $eingabe) {
  $gefunden='true';
  }
}

[Björn Höhrmann]

Ich habe folgendes Problem:

Du führst chomp() nicht aus, somit ist $_ eq "christof\n" und ne "christof".

my $eingabe = 'christof';

open(DATEI, "<mailadress.txt") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);
$gefunden='false';
foreach(@Zeilen) {
  if ($_ eq $eingabe) {
  $gefunden='true';
  }
}

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

[Frank Schönmann]

hi!

$gefunden = 1 if $_ eq $eingabe

$gefunden = ($_ eq $eingabe);

:)

bye, Frank!

[Jens]

hi!

Tach,

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

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

Jens

[Calocybe]

hi there!

Na hey, wenn Du's schon einen Einzeiler schreibst, dann bitte in nur einer Zeile! ;-)

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

Allerdings ist dann nicht mehr der gesamte Dateiinhalt in @Zeilen.

So long