Verarbeiten von Textdatenbanken (schreiben, editieren und löschen)
In eine Datei schreiben ist leicht, schwieriger ist es da schon an die Dateiinhalte heranzukommen um diese sicher zu editieren, zu aktualisieren oder zu löschen. Ich werde hier einige Praxisbezogene Beispiele vorstellen, die sich mit der Problematik befassen.
1. In eine Datei schreiben
Grundsätzlicher Aufbau
Öffnet man eine Datei mit >> bedeutet dass das hier die Daten am Dateiende angehängt werden. Hiermit > wird die Datei hingegen überschrieben.
open (FILE, ">>$dateipfad/daten.dat") or scripterror("Fehler: Kann daten.dat nicht oeffnen!",$!); flock (FILE, 2); print FILE "$id|$email|$url|$namen"; close FILE;
Wenn man von vornherein plant die Dateiinhalte später editieren oder löschen zu wollen ist es eine gute Idee eine eindeutige ID für jede Zeile zu vergeben. Dies kann eine Kombination von Zufallszeichen, die Zeit, ein Counterwert oder ähnliches sein. Mit dieser ID ist dann eine eindeutige Zuordnung leicht herzustellen.
Eine Zeile aus einer Datei löschen
Grundsätzlicher Aufbau
open (DATEN, "+>>$dateipfad/daten.dat") or scripterror("Fehler: Kann daten.dat nicht oeffnen!",$!); flock (DATEN, 2); seek DATEN, 0, 0; my @daten = <DATEN>; my @neue_daten = (); foreach $daten (@daten) { chomp $daten; ($eintragsid,$email,$url,$name) = split(/|/, $daten); if ($eintragsid ne $id) { $daten = "$datenn"; push @neue_daten, $daten; } } seek DATEN, 0, 0; truncate DATEN, 0; print DATEN @neue_daten; flock (DATEN, 8); close DATEN;
Wie funktioniert’s?
Hier wird die Datei zum Aktualisieren geöffnet, dann der Dateizeiger mittels seek DATEN, 0, 0; an den Anfang der Datei gesetzt.
Nun wird ein neues, leeres Array definiert mit my @neue_daten = ();
In der nachfolgenden foreach Schleife foreach $daten (@daten) { werden die Dateizeilen durchlaufen und das n am Zeilenende mittels chomp $daten; entfernt.
Dem schließt sich das splitten der Zeilen an
($eintragsid|$email|$url|$name) = split(/|/, $daten);.
In dem Codeblock:
if ($id ne $eintragsid) { $daten = "$datenn"; push @neue_daten, $daten; }
werden nun die Dateiinhalte die nicht (ne) mit der ID übereinstimmen in das neue Array ge“push“t.
Nun wird der Dateizeiger wieder an den Dateianfang positioniert, der Dateiinhalt komplett gelöscht mit truncate DATEN, 0; und der Inhalt des Arrays in die Datei print DATEN @neue_daten; geschrieben.
Weitere Beiträge
Amazon Prime Day 2025: Top-Deals für Technik, Büro & Home Office

Der Amazon Prime Day 2025 ist gestartet und begeistert wieder mit vielen exklusiven Schnäppchen. Als Prime-Mitglied erhalten Sie vor allen anderen Zugriff auf die besten Deals. Besonders Technikfans und Home-Office-Nutzer kommen in diesem Jahr voll auf ihre Kosten. In diesem Artikel stellen wir Ihnen die spannendsten Prime Day Angebote in den Kategorien höhenverstellbare Schreibtische, Router, […]
Virtuelles Büro in Stuttgart Innenstadt: Flexibel, professionell und kosteneffizient

Ein virtuelles Büro in der Stuttgart Innenstadt bietet Ihnen die ideale Gelegenheit, Ihre geschäftliche Präsenz zu stärken – ohne hohe Fixkosten. Die wirtschaftsstarke Hauptstadt Baden-Württembergs ist ein Hotspot für Innovation und Unternehmertum. Eine Geschäftsadresse in dieser zentralen Lage signalisiert Professionalität und schafft Vertrauen bei Kunden und Geschäftspartnern. Gleichzeitig profitieren Sie von der hervorragenden Infrastruktur und […]
Letzter Tag: Amazon Black Friday Deals für Technik-Liebhaber

Die Black Friday Woche bei Amazon endet heute, und Technik-Liebhaber sollten jetzt zugreifen. Für Betreiber von Webseiten oder Kreative gibt es viele spannende Angebote. Von leistungsstarken Laptops bis hin zu Software-Lizenzen finden Sie heute zahlreiche reduzierte Produkte. Auch Zubehör wie kabellose Tastaturen, externe Festplatten oder USB-Hubs sind oft günstiger erhältlich.
Meta Quest 3: Entdecken Sie das aktuelle VR-Headset

Die Meta Quest 3 ist das aktuelle Mixed-Reality-Headset von Meta, das innovative Technologien vereint, um ein einzigartiges VR-Erlebnis zu bieten. Diese VR-Brille stellt sowohl für Gelegenheitsnutzer als auch für Technikenthusiasten eine aufregende Möglichkeit dar, die Grenzen zwischen der physischen und digitalen Welt zu erkunden. Eine echte Alternative zur Apple Vison Pro. Wer etwas günstiger in […]
Keine Kommentare vorhanden