Prüfen ob eMailadresse vorhanden

[Matti Maekitalo]

use Mosche;

my $zeige = @Zeilen;

In $zeige steht jetzt die Anzahl der Einträge von @Zeilen drin, ist dir dies bewusst?

if ($zeige eq "$email") {

Anhand der obigen Bemerkung sollte dir der Fehler ersichtlich sein. Wieder mal zwei Versionen, wie es richtig wird.

my $found = 0;
foreach (@Zeilen) {
  if (/$email/) {
  # wegen newline u.ä., siehe letztes Mal
     $found++;
  }
}

if ($found) {
 print "$email ist enthalten!";
}

In $found steht jetzt die Anzahl der vorkommen von $email

Kurze Version
if (grep { /$email/ } @Zeilen) {
   print "$email ist enthalten!";
}

use Tschoe qw(Matti);