Schrift
Start · Board · Webprogrammierung mit Perl · Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl
[thread]3027[/thread]

Textdatei im übergeordneten Ordner erstellen

Leser: 1


<< |< 1 2 3 >| >> 21 Einträge, 3 Seiten
UselessUser
 2006-07-26 01:14
#28584 #28584
User since
2006-07-26
7 Artikel
BenutzerIn
[default_avatar]
Hallo Leute,

ich beschäftige mich erst seit kurzer Zeit mit Perl.

Bin schon die ganze Zeit am Pfriemeln, aber mir gelingt es einfach nicht, eine Textdatei aus dem "cgi-bin"-Verzeichnis eines Webservers in den übergeordneten Ordner "html" zu kopieren oder ihn dort gleich zu erzeugen.

Das Script läuft im lokalen System, wenn ich die Textdatei einen Ordner höher (in Windows) anlege:
open (handle,'>..\anmeld.html');
Das Script läuft auch, wenn ich die Datei direkt im "cgi-bin"-Ordner des Webservers (Apache 2.0.5) anlege:
open (handle,'>anmeld.html');

Was einfach nicht auf dem Server funktioniert.
1. Direktes Erstellen der Datei im übergeordneten Ordner:
Code: (dl )
1
2
3
4
5
open (handle,'>../anmeld.html');
# ODER
open (handle,'>/usr/html/anmeld.html');
# ODER
open (handle,'>/html/anmeld.html');

USW.

2. Alternativ das Kopieren der erfolgreich erstellten Datei von "cgi-bin" in den übergeordneten Ordner "html":
Code: (dl )
1
2
3
4
my $oldlocal="/html/cgi-bin/anmeld.html";
my $newlocal="/html/anmeld.html";
use File::Copy;
copy ($oldlocal, $newlocal);

ABER
es klappt nicht! Habe noch einige Varianten mit den Pfaden versucht und versuchsweise die Rechte des Ordners "html" sowie der Datei "anmeld.html" auf 777 gesetzt, mit dem gleichen Resultat.

Bin erst einmal am Ende meines Lateins ...

Thx,

UselessUser

edit pq: code-tags hinzugefügt\n\n

<!--EDIT|pq|1153902049-->
UselessUser
 2006-07-26 01:19
#28585 #28585
User since
2006-07-26
7 Artikel
BenutzerIn
[default_avatar]
Hmmm, sorry, eigentlich dachte ich, ich hätte diese komischen Emoticons deaktiviert. Stattdessen sollte da eigentlich eine schließende Klammer stehen.

-- Habe ich soeben korrigiert.

UselessUser\n\n

<!--EDIT|UselessUser|1153862510-->
topeg
 2006-07-26 01:24
#28586 #28586
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
Dann lass dir doch mal eine Fehlermeldung ausgeben. Sowas wie:
Code: (dl )
open(...) or die "Konnte Datei nicht öffnen! Fehlermeldung:$!"
UselessUser
 2006-07-26 01:33
#28587 #28587
User since
2006-07-26
7 Artikel
BenutzerIn
[default_avatar]
Hallo topeg,

das Problem ist, dass ich lediglich einen allgemeinen Fehler vom Server gemeldet bekomme: Frühzeitiges Ende des Skriptes, Fehlernummer: 500. Obwohl ich im Script

use CGI::Carp qw(fatalsToBrowser);

verwende.

UU\n\n

<!--EDIT|UselessUser|1153863379-->
renee
 2006-07-26 09:48
#28588 #28588
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Lass das Skript mal in der Konsole laufen und zwar mit perl -c script.pl

oder mal ein zweites CGI schreiben:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl

use strict;
use warnings;

print "Content-type: text/plain\n\n";

my $script = 'script.pl';

my $result = qx{$script};
print $result;
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
GwenDragon
 2006-07-26 11:33
#28589 #28589
User since
2005-01-17
14848 Artikel
Admin1
[Homepage]
user image
Es würde wohl auch mit der Ausgabe des HTTP-Headers 204 No Content, da ja das Skript nichts an den Browser zurück sendet.

Code: (dl )
print "Status: 204 No Content\n\n";
\n\n

<!--EDIT|GwenDragon|1153899284-->
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
renee
 2006-07-26 11:58
#28590 #28590
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=GwenDragon,26.07.2006, 09:33]Es würde wohl auch mit der Ausgabe des HTTP-Headers 204 No Content, da ja das Skript nichts an den Browser zurück sendet.

Code: (dl )
print "Status: 204 No Content\n\n";
[/quote]
Kannst Du hellsehen oder habe ich das Skript hier im Thread übersehen?
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
pq
 2006-07-26 12:21
#28591 #28591
User since
2003-08-04
12209 Artikel
Admin1
[Homepage]
user image
[quote=UselessUser,25.07.2006, 23:19]Hmmm, sorry, eigentlich dachte ich, ich hätte diese komischen Emoticons deaktiviert. Stattdessen sollte da eigentlich eine schließende Klammer stehen.

-- Habe ich soeben korrigiert.

UselessUser[/quote]
alles innerhalb code-tags wird nicht zu emoticons. dafür sind code-tags da.
unter anderem.\n\n

<!--EDIT|pq|1153902117-->
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
Gast Gast
 2006-07-27 01:31
#28592 #28592
Schau mal in das Errolog des Webservers. Fehler 500 heißt meißt, daß das script nicht gestarte werden konnte. Das kann an einem falschen Interperterpfad, oder den Rechten der Datei liegen.
renee
 2006-07-27 10:01
#28593 #28593
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Ein 500er Fehler kann Wiki:viele Ursachen haben!
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< |< 1 2 3 >| >> 21 Einträge, 3 Seiten



View all threads created 2006-07-26 01:14.