Hannes: dateienspeichern in unterverzeichnissen

Beitrag lesen

Hallo,

mit folgendem Skript will ich Daten in eine neu einzurichtende Datei in ein Unterverzeichniss speichern.

Die klappt jedoch nur auf erster ebene (../verzeichnis1/datei.txt), nicht eine ebene tiefer (../verzeichnis1/verzeichnis2/datei.txt)

Es handelt sich um einen Unix Server, auf dem folgendes Skript (z.B. läuft:

#!/usr/bin/perl -w
use strict;
use vars qw/$globalpfad %schonangezeigt $kopfschonangezeigt $fehlerseite %INPUT @datensatz/;
print "Content-type: text/html\n\n";

open(DATEI, ">../verz1/verz2/test.txt") || die "Datei  wurde nicht gefunden!!!";
#in verz1 kann ich speichern, in verz2 nicht!
 my $lockedfile="true";
 if ($lockedfile)
  {flock(DATEI, $lockedfile);}
 print DATEI 'ein blöder Text für eine blöden Test';
close(DATEI);

print "Der Text wurde ausgegeben";