Home/ Questions/Q 49041
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-10T16:22:28+00:00

How would I write a Perl CGI script that receives a file via a

  • 0

How would I write a Perl CGI script that receives a file via a HTTP post and saves that to the file system?

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Just a note: however you will write it, don’t save it in a place accessible from your web-server.

    And now to the point: below is a script which I was using for some time for photo-uploading. It might need some tweaking, but should show you the way.

    As the image isnt uploaded to web-accesible directory, we then have separate process checking it, resizing, putting 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
    • 0