Community  »  Perl: Allgemeines Forum

File Upload	Seitenanfang
Hallo, bin echt am verzweifeln. Ich möchte via Perl eine Datei auf den Server laden. Hab im Internet dazu auch viele fertigen Scripte und Beispiele gefunden, aber geholfen hat mir das alles nicht. Komm damit nicht wirklich klar. Ich habe eine HTML Datei die folgt aussieht: <form action="index.pl" method=get enctype="multipart/form-data"> ... <input class="text" type="file" name="imageSave" size="50" accept="text/*"> </form> Nun möchte nicht mehr, als dass wenn ich auf Senden klicken (button vorhanden) die datei hochgeladen wird. Da ich eine eigenes Design schon besitze, möchte ich lediglich nur den Code in meine index.pl einfügen, daher bringt mir ein fertiges Script nichst. Auch mit SelfHTML habe ich es schon probiert, aber ich komme hier nicht weiter. Vielleicht kann mir einer von euch helfen. Dies wäre sehr nett. Datum: 02.08.2006-16:37
re: File Upload	Seitenanfang
Hi. use strict; use warnings; use CGI::Carp qw/fatalsToBrowser warningsToBrowser/; use CGI qw/:standard/; my $cgi = new CGI; my $upload_file = $cgi->param('imageSave'); my $save_file = check_filename($upload_file); my ($bytesread, $buffer, $file_size); $file_size = 0; $buffer = ""; if (open (OUTFILE, ">$save_file") ) { binmode (OUTFILE); while ($bytesread=read($upload_file,$buffer,1024)) { ($save_file =~ /png|gif|jpg|jpeg$/i) and ($buffer =~ s/\r//g); $file_size += 1024; print OUTFILE $buffer; } close OUTFILE; } In der Funktion check_filename() prüfst Du dann ab, ob mit dem hochgeladenen Dateinamen alles in Ordnung ist, damit keiner über den Dateinamen einen Angriff starten kann. Wie das geht, bitte googeln. ;) -uw Datum: 02.08.2006-22:14
re: File Upload	Seitenanfang
Bei Binärdateien würde ich ein \r aber nicht löschen. Das kann den Inhalt unbrauchbar machen! Datum: 03.08.2006-12:09