EMailadresse aus der Datei löschen

[Peter Kaufmann]

Hallo Karsten,

kann mir jemand sagen warum die betreffende eMailadresse aus der Datei nicht gelöscht wird? Was ist an dem Script falsch?

#! /usr/bin/perl

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

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

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

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

Also in @emails wird die Adresse nicht mehr stehen, aber du schreibst @emails nicht zurück in die datei $datei. Deshalb ist die Sache ziemlich witzlos.

Gruß Peter