nicht angemeldet
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