Mit dieser kleinen Subroutine kann man aussagekräftige Fehlermeldungen ausgeben lassen.
#!/usr/bin/perl
print "Content-type: text/html\n\n";
# Wenn diese Datei nicht existiert...
open(DATEI, "USER.txt") or fehler("Konnte Datei USER.txt nicht lesen! ");
# Die Errorroutine aufrufen
sub fehler {
my $error = shift;
printf "<b>Fehler:</b> %s Prüfen Sie ihr Script in Zeile <b>%d</b>", $error, (caller)[2];
exit;
}
Scriptausgabe im Fehlerfall:
Fehler: Konnte Datei USER.txt nicht lesen! Prüfen Sie ihr Script in Zeile 5
Gut ist das hier die Zeilennummer gleich mit ausgegeben wird, das erleichtert einiges.
|
