Den (Perl-code) kann ich dir gerne zeigen. ALLERDINGS! Man muss eher das Gesamtsystem betrachten, da an vielen unterschiedlichen Stellen Fehlerbehandlung gemacht wird. ZB wird auf den Webseiten kontrolliert, ob die Angaben sinnvoll und richtig sind. Wird zB eine Uhrzeit eingegeben, dann wird schon VOR dem Senden überprüft, ob diese 5 stellig ist, das 3. Zeichen ein ':' ist, die zwei Zahlen davor im Bereich 01-23 und die zwei Zahlen dahinter im Bereich 00-59 sind.
In dem Perl-Code wird dann auf zB so auf Dateifehler reagiert:
open ConfigFileObject, "< ".read_data("FILES", "CONFIGFILE") || write_errorlog("ERROR: $! : ".read_data("FILES", "CONFIGFILE"),"3");
oder beim Lesen der Daten aus der "Datenbank" wird überprüft, ob die verlangte Variable überhaupt existiert:
sub read_data{
my ($Section, $Parameter) = @_;
if (exists $Data{$Section}{$Parameter}) {
return $Data{$Section}{$Parameter};
} else {
write_errorlog("ERROR by reading Data : $Section - $Parameter -> Not found!","2");
return undef;
}
}
sub write_errorlog {
my ($Logstring, $CriticalState) = @_;
debug($Logstring);
if (read_data("FILES", "ERRORLOG") eq "YES") {
open (ErrorFileObject, ">>".read_data("FILES", "ERRORLOGFILEPATH").$DateForFiles."_ERROR.log") || write_errorlog("ERROR: $! : ".read_data("FILES", "CONFIGFILE"),"3");
print ErrorFileObject "$DateForHuman $TimeForHuman : $Logstring\n" ;
close (ErrorFileObject);
}
if ($CriticalState eq "2") {
telegrammessage($Logstring);
} elsif ($CriticalState eq "3") {
telegrammessage($Logstring);
telegrammessage("Prozess muss beendet werden!");
die;
}
}
In dem Perl-Code ist es wohl strenggenommen eher kein FehlerHANDLING, sondern eher eine FehlerNOTIFICATION. Die Fehler, die hier auftreten, sind nicht zu händeln, sondern müssen im Code (oder woanders) korrigiert werde.
Es kann auch passieren das (WLAN) Netzwerkverbindungen abbrechen oder (längere Zeit) nicht zu stande kommen. Auch das wird protokolliert. Hier kann der Code noch so gut sein, das kann kein PERL der Welt beheben...
Natürlich teste ich Code (-Blöcke) bevor ich sie aktive/produktiv einsetze. Aber, was als Teilstück funktioniert, muss ja nicht unbedingt im Ganzen gehen.
Sowas zB trat schon öfter auf (konnte es immer beheben ;-)), ist aber in der Zuordnung WO und WANN es passiert schwer zu finden. Zwar wird die Code-Zeile angegeben, aber nicht das, was vorher passiert ist / gemacht wurde.
QuoteUse of uninitialized value in concatenation (.) or string at ./clients_getdata.pl line 1899, <ReadCommandFileObject> line 1.
QuoteUse of uninitialized value in list assignment at ./clients_getdata.pl line 1941.
Odd number of elements in hash assignment at ./clients_getdata.pl line 1941.
Daher würde ich mir wünschen, dass diese auf STDERR ausgegebenen Fehler in meinen LOG stehen. Dann kann ich sagen, was das Programm gemacht hat kurz vorher
So, Du wolltest den Code sehen Was denn genau? :-)
Die ersten 1500 Zeilen sind "nur" Datenspeicher....
Anhänge
Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
+27 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
![[Homepage]](/battie/theme/default/homepage.gif)
Log::Log4perl zu werfen. Leider gibt's da fast schon zu viele Frameworks mit unterschiedlicher Terminologie - der Fluch von TIMTOWTDI. Was all diesen Frameworks gemeinsam ist: Sie haben einen "Level" oder "Severity", das Deinem CriticalState entspricht. Und alle diese Frameworks sorgen dafür, dass jeder einzelne Eintrag einen Zeitstempel bekommt. Zudem haben sie auch eine Konfigurationskomponente, die auswertet, welche Meldungen wohin geschickt werden: Ans Handy, an syslog, in eine Logging-Datei, auf den Bildschirm. Das kann in jeder Umgebung dann anders eingestellt werden und erlaubt Dir auch, DEINE Fehlermeldungen separat zu steuern: Bei Log::Log4perl heißt das "category", bei 
syslog "facility".
perltie
![[Powered by Battie]](/battie/img/powered.png)
