Ersetzen einzelner Zeilen einer Textdatenbank mit Perl?
Hi,
sagt mal, wie funzt das Ersetzen einzelner Zeilen einer Textdatenbank mit Perl??
Ich habe eine Textdatei, in der in jeder Zeile eine Nummer von 11-100 steht, danach folgt ein Doppelpunkt und danach steht ein Name, also z.B. so:
11:Martin
12:Matthias
...
Ich möchte damit einen Sitplan realisieren, bei dem sich jeder online eintragen kann.
Wenn noch niemand auf einem Platz sitzt, ist der Eintrag rechts neben dem Doppelpunkt leer. Die Zahlen links sind die Platznummern.
Wenn sich jemand z.B. den Platz 51 reservieren will, soll die Zeile, die mit "51" beginnt, gesucht werden und durch "51:Username" ersetzt werden. Will jemand den Platz doch nicht mehr haben, soll wiederum die Zeile mit "Platznummer:Username" gesucht und durch "Platznummer:" ersetzt werden.
Ich habe schon vergeblich nach Hilfe in meinem Perl-Buch gesucht, aber nix gefunden.
Könnte mir jemand von Euch helfen???
Thx,
Antimon