subroutine beenden mit exit(&subroutine);

[Siechfred]

Hi,

open(FH, ">a.txt") or exit(&test);

Besser wäre an dieser Stelle imo:

my $fn = "a.txt";
open(FH, ">$fn") || exit(test($fn, $!));

Die sub test könnte dann so aussehen:

sub test {
  my $file = shift;
  my $error = shift;
  print "Beim Öffnen/Lesen der Datei $file ist folgender Fehler aufgetreten: $error.\n";
  return 1;
}

Besser geht's um die Uhrzeit nicht, deshalb ungetestet und sicher verbesserungswürdig :)

Viele Grüße
Torsten