EMailadresse aus der Datei löschen

[Karsten]

Hallo Matti,

jetzt habe ich den Fehler gefunden.

#!/usr/bin/perl -w

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

open(FH, "<$datei") || die "Datei nicht gefunden";
while (<FH>) {
push(@emails, $_) unless (lc($_) =~ /^$email\n$/);
}
close (FH);
open (FH, ">$datei") || die "Datei nicht gefunden";
print FH @emails;close(FH);

print <<EOL;
Content-type: text/html

<b>Die eMailadresse wurde erfolgreich gelöscht!
EOL
 exit;

Getestet und es funzt!

Danke!