Christian Kruse: Anweisungen ausführen, wenn Datei nicht existiert?

Beitrag lesen

Hoi,

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: $!";

Na, dann nutz das doch auch:

open DATEI,'<daten.dat' or fehlerbehandlung();

Aber ich glaube, du moechtest dich lieber mit -f beschaeftigen
(perldoc -f -f):

unless(-f 'daten.dat') {
  # do something very special
}

Gruesse,
 CK