Exitcode

[Christian Kruse]

Hallo SI,

ich will in diesem Code:

open(DATEI, $pfad) or die "Fehler beim oeffnen der Datei: $!\n";

zusätzlich zu der Ausgabe im Fehlerfall "Fehler beim oeffnen der Datei: $!
\n" d
en Exitcode 5 zurückgeben. Die Syntax "exit 5;" kenn ich, doch ich weiss
in dem Fall nicht wohin damit ?

mach es doch so:

sub my_die($$$$) {
  my ($msg,$file,$line,$exitcode) = @_;
   if($msg =~ /\n$/s) {
     print STDERR $msg;
   }
   else {
     print STDERR "$msg at $file line $line\n";
   }

exit($exitcode);
}

open DATEI,$pfad or my_die("Fehler beim oeffnen der Datei: $!\n",__FILE__,__LINE__,5);

Gruesse,
 CK