neuster Gästebuch Eintrag oben

[Tobi]

Hallo Norbert und CK1

Ich muß zugeben, dass ich es nicht geschafft habe die Hilfe von CK1 effizient umzusetzten, aber so habe ich es dann doch geschafft, als ich endlich begriff wie was warum funktioniert...

--schnipp--
open(DB, $gbdatenbank);
@entries = <DB>;
close(DB);

@entries = reverse(@entries);

open(DB, ">$gbdatenbank");
print DB @entries;
close(DB);

open (DB, ">>$gbdatenbank") or die ("Kann Gästebuchdatenbank nicht öffnen");
print DB ("$datum-$jt <>$neudat{'name'}<>$neudat{'email'}<>$neudat{'homepage'}<>$neudat{'ort'}<>$neudat{'text'}\n");
close (DB);

open(DB, $gbdatenbank);
@entries = <DB>;
close(DB);

@entries = reverse(@entries);

until (@entries <= $maxeintraege)  {
        pop(@entries);
    }

open(DB, ">$gbdatenbank");
print DB @entries;
close(DB);
--schnipp--

es ist wirklich umständlich, war aber wenigstens einfach zu verstehen.

Bis zum nächsten Mal ;)
Tobi