nicht angemeldet
Hallo.
Ich bin kein Perl-Programmierer, muß aber jetzt notgedrungen damit arbeiten und ich erinnere mich nur noch ganz schwach an das, was ich mir mal ein wenig begebracht hatte.
Mir liegt eine Liste mit Namen vor. Pro Zeile steht ein Name.
Ich muß jetzt ein Perl-Script so umschreiben, daß dort nicht einfach nur ein Name ans Ende gehängt wird, sondern vorher überprüfen, ob der Name bereits schon vorhanden ist.
Ich weiß hier aber leider nicht, wie ich vorgehen soll. Das sind ca. 4000 Namen. Es ist nicht mehr sinnvoll, die alle in ein Array einzulesen und dieses dann zu durchsuchen, oder etwa doch?
Leider sitze ich hier gerade vor einem Rechner auf dem kein Perl installiert ist und ich kann nicht testen.
(Später hab ich dann Perl, aber kein Internet mehr. Darum frage ich mal besser jetzt nach.)
Könnte sowas funkionieren?
open( DATEI, "<liste.txt" ) || die "Datei nicht gefunden";
while ( $zeile = <DATEI> )
{
@NamenListe = "$zeile";
}
close(DATEI);
if !exists $NamenListe{'name'}
{
// irgendwie Eintrag vornehmen
}
Und wie wäre es mir möglich, gezielt einen bestimmten Namen aus der Liste zu löschen?
Auch wieder alles in ein Array einlesen, einen Eintrag aus dem Array löschen und damit die Datei überschreiben?
Mit welcher Funktion lösche ich einen Array-Eintrag? Das Arrayelement müßte dann wohl am besten verschwinden und nicht einfach nur mit einem Leerstring überschrieben werden.
Oder sollte ich besser anders vorgehen?
Danke für jede Hilfe.
Gruß, Basti