Reims has asked for the wisdom of the Perl Monks concerning the following question:

Hi! I'm trying to get a file upload script to work. To savethe uploaded file, I do this: 
my $fh = $q->upload($filefield_name);
 
#check for valid file handle
if (defined $fh) {
   my $io = $fh->handle;

   open(OUTFILE, '>>', '/srv/www/cgi-bin/upload');
   while ($bytesread == $io->read($buffer, 1014)) {
       print OUTFILE $buffer;
   }
   print "File uploaded";
   } else {
       print "file handle not defined";
   }

[download]
Executing that will give me this error: 
Undefined subroutine Fh::handle
 at /srv/www/cgi-bin/fo_www/document_add.cgi line 51

[download]
After a couple of hours of finding loads of tutorials telling me to do exactly that, I don't know what I'm doing wrong.

Replies are listed 'Best First'.
Re: CGI file upload
by marinersk (Priest) on Aug 01, 2013 at 11:36 UTC
    Interesting; I am unfamiliar withe the file handling mechanism you use; while I would love to advise you on that, I'll leave that to others.

    Here is a snippet showing how I do my file uploads: 

          my $inpfsz = 0; 
      open(RESFIL, ">$desfnm"); 
      binmode(RESFIL); 

      while (my $inpcnt=read($srcfnm,$inpbuf,2096)) { 
            $inpfsz += $inpcnt; 
            print RESFIL $inpbuf; 
      } 

      close(RESFIL);

    [download]

    You can find more detail, including some mandatory advice about the HTML that drives the upload, at http://www.bhmk.com/mariners/cspupld.htm.

[reply]
[d/l]
Re: CGI file upload
by Anonymous Monk on Aug 01, 2013 at 12:33 UTC
[reply]
      Thanks! Using $cgi->tmpFileName does the trick for me. Greetings Reims
[reply]
Re: CGI file upload
by Anonymous Monk on Aug 01, 2013 at 12:34 UTC
[reply]
[d/l]

Back to Seekers of Perl Wisdom