Hi,
ich möchte eine CSV-Datei uploaden und dann ihre 1. Zeile löschen und sie zurückschreiben. Das Problem scheint mir zu sein, dass ich in dem filefield zwar den kompletten Pfad sehe, jedoch beim "submit" der multipart-form nur der reine Dateiname übergeben wird (zumindest ist das alles was in meiner Variablen steht). Daher ist mein array mit den Zeilen und dementsprechend auch die neue temp-Datei leer.Schonmal danke für die Antworten!
print start_multipart_form();
print "Wählen Sie die CSV-Datei die Sie einlesen möchten";
print filefield('filename','',45);
print reset;
print submit;('submit','Process File');
print endform;
my $datei = param('filename'); ############## erste Zeile löschen
print $datei;
open(IN,"$datei");
@input = <IN>;
close(IN);
shift(@input);
#print @input;
open(OUT,">c:/temp.txt");
foreach $line(@input){
print OUT $line;
};
close(OUT);
Datum: 11.12.2006-06:24
Dateiupload
