nicht angemeldet
Hallo!
Hast Du Schreibrechte?
Alle da. Klappt ja auch im Verzeichnis, nur im Unterverzeichnis nicht.
#!/usr/bin/perl -w
use strict;
Schonmal sehr gut! Sieht man viel zu selten.
Na, bei derart guten Tutoren wie Dir!!!
my $lockedfile="true";
if ($lockedfile)
{flock(DATEI, $lockedfile);}
Dieser Code ist in dieser Form ziemlich sinnbefreit.
Ich wollte nur, das diese Datei nicht zweimal zum schreiben geoeffnet ist - und in slefhtml hab ich das dazu gefunden.
wenn ich nicht "true" zuweise geht irgendwie nix...
Also: stand der DInge ist: bei untenstehendem Skript gibt er wie gehabt auf erster ebene ein ergebnis aus, auf zweiter Verzeichnisebene nix (also nichtmal eine fehlermeldung).
Oder werden die Fehlermeldungen irgendwo anders gespeichert (Es findet sich keine error.txt auf dem Server)???
Das Skript sieht derzeit wie folgt aus:
#!/usr/bin/perl -w
use strict;
print "Content-type: text/html\n\n";
my $filename="../data/news/tost.txt";
wahlweise $filename="../data/tost.txt"; - dann geht es problemlos
open(DATEI, ">".$filename) || die "Cant open $filename because of: $! ";
my $lockedfile="true";
if ($lockedfile)
{flock(DATEI, $lockedfile);}
print DATEI 'ein blöder Text für eine blöden Test';
close(DATEI) or print STDERR "Failed to close $filename because: $! \n";
print "Der Text wurde ausgegeben";