Geek Answers Handbook

How can I handle uploads of HTTP files?

How do I write a Perl CGI script that receives a file via an HTTP message and saves it to the file system?

+4
perl file-upload cgi
source share
4 answers

Just a note: however you write it, do not save it in a place accessible from your web server.

And now: “The script that I used for some time to upload photos. Maybe this will require some customization, but should show you the way.

Since the image is not uploaded to a catalog available on the Internet, we then carry out a separate process, checking it, resizing, placing a watermark and placing it where it can be accessed.

#!/usr/bin/perl -wT use strict; use CGI; use CGI::Carp qw ( fatalsToBrowser ); use File::Basename; $CGI::POST_MAX = 1024 * 5000; my $safe_filename_characters = "a-zA-Z0-9_.-"; my $upload_dir = "/home/www/upload"; my $query = new CGI; my $filename = $query->param("photo"); my $email_address = $query->param("email_address"); if ( !$filename ) { print $query->header ( ); print "There was a problem uploading your photo (try a smaller file)."; exit; } my ( $name, $path, $extension ) = fileparse ( $filename, '\..*' ); $filename = $name . $extension; $filename =~ tr/ /_/; $filename =~ s/[^$safe_filename_characters]//g; if ( $filename =~ /^([$safe_filename_characters]+)$/ ) { $filename = $1; } else { die "Filename contains invalid characters"; } my $upload_filehandle = $query->upload("photo"); open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!"; binmode UPLOADFILE; while ( <$upload_filehandle> ) { print UPLOADFILE; } close UPLOADFILE; print $query->header ( ); print <<END_HTML; <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Thanks!</title> </head> <body> <p>Thanks for uploading your photo!</p> </body> </html> END_HTML
+7
source

Use the CGI module .

 my $fh = $query->upload('upload_field'); while(<$fh>) { print SAVE_FILE $_; }
+9
source

See the CGI.pm documentation for file downloads .

+6
source

I would start with CGI and read CREATE A FILE DOWNLOAD A FILE and use open to create a file and print to write to it. (and then close to close it).

+4
source

More articles:


All Articles