#!/usr/bin/perl -w #************************************** # Name: CGI Perl - File Upload # Description:Shows you the key of how to upload a binary file using perl/cgi. # # Inputs:You will need to make a form with the following properties: #
# # and of course, a submit button # # This code is copyrighted and gives no warranties. #************************************** ### NOTE: if you want to to do textfile uploading, just remove all the binmode() functions and that's it! use CGI; use Encode; use utf8; $root_ = "$ENV{'DOCUMENT_ROOT'}"; $upload_path = "$root_/wienerberger/"; $main_path ="http://loyalty.hr"; ### Set Maximum Upload size to 2MB (prevent from uploading extremely large files or other such malicious stuff) $CGI::POST_MAX = 2048; ### Print HTML file header print "content-type: text/html\n\n"; print< Upload FILE UPLOAD ... HTML ### end of HTML file header ### IMPORTANT: Set Standard Input to Binary Mode -- this is critical for binary data, like images binmode(STDIN); @input_stream = ; ### pick up from from the array: @input_stream the $upload_file_data $upload_file_data = @input_stream[1]; ### pick up from from the $upload_file_data the correct $file_name ### this works well if the image file was upoaded from MS Windows systems ($a0, $variable_name, $file_path) = split(/\;/, $upload_file_data); $file_name ="new_cards.csv"; ### This is just for a single file upload; you can improve the code to include boundary separations and stuff like that.. ### These two lines delete the boundary and file info which comes with the formfeed and leaves only the binary data ### First line : removes initial 4 elements from the array: @input_stream. ### Second line : removes last element from the array: @input_stream. splice(@input_stream,0,4); splice(@input_stream,$#input_stream ,1); $in = join("",@input_stream ); $in = substr($in,0,length($in) ); ### This next sniplet assumes you are uploading a JPEG file and saves it as $file_name in the $upload_path folder ### You can also further improve the script by retreiving the filename from the 'spliced' lines $uploaded_file = $upload_path . $file_name; ### if you want to have a time_STAMP prefix ### $time_stamp = time(); ### $time_stamp .= "_"; ### $uploaded_file = $upload_path .$time_stamp .$file_name; #### change :ValueTransfer('$time_stamp$file_name') open(ff,">$uploaded_file"); ### Set file output to binary mode (since you're assuming to write a binary file) binmode(ff); print ff $in; close(ff); ## response print "terminato con successo.
Uploaded Size: ".length($in)." bytes "."
file_path: ".$original_path."
file_name: ".$file_name; print<
Uploaded file:
HTML # end of perl script