Markus Thomas: Anweisungen ausführen, wenn Datei nicht existiert?

Beitrag lesen

Hallo,

wie kann ich es erreichen, dass ein Script nach
open(DATEI,"<daten.dat")
noch Anweisungen ausführt, wenn diese Datei nicht existiert?
Bisher habe ich nur die Möglichkeit gefunden, dass das Script mit einer Fehlermeldung unterbrochen wird.
open(DATEI,"<daten.dat") || die "Datei existiert nicht: $!";

Verwende kein 'die', z.B.

open(DATEI,"<daten.dat") || &error("Datei existiert nicht: $!");

sub error
{
  print "Content-type: text/html\n\n";
  print "<html><body>";
  print $_[0];
  print "</body></html>";
}

Du kannst natürlich auch etwas anderes machen, als die Fehlermeldung am Bildschirm auszugeben.

Gruß Markus