Yakumo: Dateiname bei Dateiupload

Beitrag lesen

Hallo,

ich hab ein Script im www gefunden, mit dem ich eine Datei mittels HTML-Formular hochladen kann, allerdings geht die Dateiendung/-typ der Datei dabei verloren.

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 = 'DATEI_'.$$.'_'.$ENV{REMOTE_ADDR};
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;

ich hab es schon mit
$fname=$cgi->param("myfile");

probiert, dabei bleibt die Dateiendung erhalten, allerdings ergbit der Name keinen Sinn...

und das ging leider auch nicht:
$fname=$cgi->param("myfile");
$fname='Datei_'.$fname; #"Datei_" stand nicht im Anfang des Namen

Habt ihr eine Idee?

Yakumo