Hi zusammen
Indem du bedingte Programmteile als sub function programmierst und bedingt aufrufst.
OK. Aber warum gibt es eine Sub Meldung ohne Subprogramme?
Das wird doch mit Subprogramm auch nicht besser *g*
Das Programm ist mittlerweile ohne Fehler. Beim nächsten Arbeitsabschnitt, worum es geht die 1. Zeile der Datei guest.csv auszulesen mekert der Server:
------------------------------------------------------------------------
Bareword "LOCK_SH" not allowed while "strict subs" in use at GuestBookManager.pl line 328.
------------------------------------------------------------------------
Wie gesagt kein sub in "use"!
Und trotzdem kann ich die Datei nicht öffnen. Codeschnipsel:
------------------------------------------------------------------------
################################################
Datenausleser für Kontrolle letzter Eintrag.
################################################
open(LASTCONTROL, "<public/guest.csv");
flock(LASTCONTROL, LOCK_SH);
my $zeile = <LASTCONTROL>;
my ($DBName, $DBText1, $DBText2, $DBText3, $DBIp, $DBTag, $DBMonat, $DBJahr, $DBStunden, $DBMinuten, $DBSekunden) = split(/;/,$zeile);
close(LASTCONTROL);
------------------------------------------------------------------------
Hinweise zur Fehlermeldung werden dankend angenommen! *ehrlich*
PS.: Die Zeitsperre arbeitet übrigens mittlerweile einwandfrei.
Grüse Gary