nicht angemeldet
Hallo,
kann mir jemand sagen warum die betreffende eMailadresse aus der Datei nicht gelöscht wird? Was ist an dem Script falsch?
#! /usr/bin/perl
^^^
Du solltest das Leerzeichen hier entfernen. Ausserdem solltest du mit '-w' arbeiten, dann wäre dir dein Fehler vermutlich aufgefallen.
push(@emails, $_) unless (lc($_) =~ /^$email\n$/);
Dein regulärer Ausdruck ist falsch:
das '$' am Ende _ist_ das Zeilenende, du musst das '\n' vorher rausnehmen. Dies ist aber nicht der Fehler, denn du überschreibst die alte Datei nicht. Du musst jetzt auch noch Array in die Datei schreiben. Mit dem Pragma 'warnings' (-w) kommt die entsprechende Warnung:
Name "main::emails" used only once: possible typo at test.pl line 8.
use Tschoe qw(Matti);