nicht angemeldet
Wo gebe ich das Verzeichnis an? FileUpload
Moin Moin,
wo an welcher Stelle kann ich das Verzeichnis angeben, in das die Datei gespeichert werden soll? Habe folgenden Code-Schnipsel von selfhtml:
#===============================================================
#!/usr/bin/perl -w
use strict;
use CGI; # Modul fuer CGI-Programme
my $cgi = new CGI; # neues Objekt erstellen
Content-type fuer die Ausgabe
print $cgi->header(-type => 'text/html');
die datei-daten holen
my $file = $cgi->param("myfile");
dateinamen erstellen und die datei auf dem server speichern
my $fname = 'file_'.$$.'_'.$ENV{REMOTE_ADDR}.'_'.time;
open DAT,'>'.$fname or die 'Error processing file: ',$!;
Dateien in den Binaer-Modus schalten
binmode $file;
binmode DAT;
my $data;
while(read $file,$data,1024) {
print DAT $data;
}
close DAT;
#===============================================================
Danke im voraus!
Bernhard Heuvel
-
Hell-O!
wo an welcher Stelle kann ich das Verzeichnis angeben, in das die Datei gespeichert werden soll? Habe folgenden Code-Schnipsel von selfhtml:
Indem du das hier:
my $fname = 'file_'.$$.'_'.$ENV{REMOTE_ADDR}.'_'.time;
anpasst. Im Moment wird dein Ziel-Dateiname aus dem String 'file', der Prozess-ID, der IP des Users und dem Unix-Zeitstempel zusammengesetzt. Was vornedran fehlt, ist der Pfad, den du entsprechend der geltenden Regeln für's Referenzieren ergänzen kannst.
Siechfred
-
»»zusammengesetzt. Was vornedran fehlt, ist der Pfad, den du »»entsprechend der geltenden »»Regeln »»für's Referenzieren ergänzen kannst.
Hi,
kurze Nachfrage: was hat denn die Referenzierung im Web mit der Referenzierung durch Perl zu tun? Schließlich verarbeitet doch Perl das Skript und nicht der Webbrowser (?!)
Wenn ich an dieser Stelle referenziere, so geschieht das lokal? Nur zum Verständnis,
Bernhard Heuvel
-
Hell-O!
kurze Nachfrage: was hat denn die Referenzierung im Web mit der Referenzierung durch Perl zu tun? Schließlich verarbeitet doch Perl das Skript und nicht der Webbrowser (?!)
Ganz einfach: Es gelten in diesem Zusammenhang identische Regeln.
Siechfred
-
-
-
OK, gefunden mit dem Google-Orakel.
Hier ist die Stelle
open DAT,'>/PFAD/'.$fname or die 'Error processing file: ',$!;
Danke trotzdem,
Bernhard Heuvel