Prüfen ob eMailadresse vorhanden

[Karsten]

Hallo,

In der Datei datei.txt befinden sich eMailadressen, untereinander geschrieben.

#!/usr/bin/perl -w

$datei= "datei.txt";
$email = "[e-mail]";

open(DATEI, "<$datei") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);

my $zeige = @Zeilen;

print "Content-type: text/html\n\n";

if ($zeige eq "$email") {
print "$email vorhanden";
} else {
print "email NICHT vorhanden";
}
exit;

Leider funzt das nicht. Kann mir das jemand mal berichtigen?

Danke, Karsten