Re: Getting a filehandle for uploaded file

where $fh was simply the name of the uploaded file.

I don't think so. From the doc:

perldoc -f read
    read FILEHANDLE,SCALAR,LENGTH,OFFSET
    read FILEHANDLE,SCALAR,LENGTH
            Attempts to read LENGTH *characters* of data into variable
            SCALAR from the specified FILEHANDLE...
[download]

You must have got the filehandle from somewhere. ~~Note that upload takes the name of the file, not the name of the parameter which holds the filename.~~

Update: Scratch last sentence. It is not true for $cpi->upload. See Bloodnok's post below.

Comment on Re: Getting a filehandle for uploaded file Select or Download Code

Replies are listed 'Best First'.
Re^2: Getting a filehandle for uploaded file by luker (Initiate) on Oct 20, 2009 at 13:48 UTC
Thanks for the swift reply. I'm not sure I agree with your comment about CGI::upload though. According to man CGI: `CREATING A FILE UPLOAD FIELD ... print filefield(-name=>'uploaded_file', ... When the form is processed, you can retrieve the entered filename by c +alling param(): $filename = param('uploaded_file');` [download] i.e. param is called with the name of the field. Then it says: `The filename returned is also a file handle... # Copy a binary file to somewhere safe open (OUTFILE,">>/usr/local/web/users/feedback"); while ($bytesread=read($filename,$buffer,1024)) { print OUTFILE $buffer; }` [download] I have also tried the no strict trick mentioned there, but it didn't help. Have also checked it's not browser-dependent.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Getting a filehandle for uploaded file
by luker (Initiate) on Oct 20, 2009 at 13:48 UTC

CREATING A FILE UPLOAD FIELD
...
print filefield(-name=>'uploaded_file', ...

When the form is processed, you can retrieve the entered filename by c
+alling param():

$filename = param('uploaded_file');
[download]

Then it says:

The filename returned is also a file handle...

               # Copy a binary file to somewhere safe
               open (OUTFILE,">>/usr/local/web/users/feedback");
               while ($bytesread=read($filename,$buffer,1024)) {
                  print OUTFILE $buffer;
               }
[download]

[reply]
[d/l]
[select]