in reply to Uploading Files (Win32)

Your upload method is wrong. $file will only contain the filename and not upload anything.

I suggest reading the documentation for the CGI module (perldoc -X CGI), specifically the chapter entitled:
CREATING A FILE UPLOAD FIELD

Here is some code, mostly from the documentation to start you off. I haven't time to do all of it now. Please specify a full path for where you want to save the file locally. The browser does not and should not have permissions to write wherever he pleases on the server.

#!perl -wT

use strict;
use CGI;

my $form  = new CGI;
print $form->header;
my $filehhandle = $form->upload('FILE');
print "<br>Contents of file:<br><pre>";
while (<$filehandle>){ print;}
print "</pre></body></html>";

[download]
--
Regards,
Helgi Briem
helgi AT decode DOT is

Replies are listed 'Best First'.
Re: Re: Uploading Files (Win32)
by Anonymous Monk on Feb 06, 2003 at 15:21 UTC

    I have changed my code to the following and I am still getting the same result i.e. the contents of the file are not read! Here is the code I am using:

    use CGI qw/:all/;

my $form  = new CGI;
print $form->header;
my $filehandle = $form->upload('UPLOADFILE');
print "<br>Contents of file:<br><pre>";
while (<$filehandle>){ print ;}
print "</pre></body></html>";

    [download]

    I'm very new to PERL but the problem seems to be that the filehandle for the local file (i.e. the file to be uploaded) is not pointing to the local file for some strange reason. If I use the 'open' command to read the contents of the local file then I get an error saying "no such file or directly". Is this problem something to do with paths and forward and back slashes>

    Any more help would be appreciated

    Eoin

[reply]
[d/l]
      Is this problem something to do with paths and forward and back slashes?

      Almost certainly.

      Use the full path.

      Use forward slashes / There is NO need to use backward slashes ever under Windows unless you specifically want to work through the cmd.exe or command.com shells (you don't).

      Your current working directory os almost certainly NOT what you think it is which is probably causing the problem.

      You don't show how you are opening the external file for writing. Try something like (untested):

      
my $dir = 'C:/temp/web';  # or something like that
my $localfile = "$dir/$filename";
open OUT, ">", $localfile or die "Cannot open $localfile for writing:$
+!\n";

      [download]
      --
      Regards,
      Helgi Briem
      helgi AT decode DOT is
[reply]
[d/l]

        Helgi

        Thanks for the response(s) - I appreciate you taking the time to help a novice

        The following lines of code better illustrate the problem:

        my $input_filehandle = upload( 'UPLOADFILE' );

sysopen(IN, $input_filehandle, O_RDONLY) || Error ('open','file');

sub Error {
print "The server can't $_[0] the $_[1]: $! \n";
exit;
      }

        [download]

        The above code returns the following error:

        "The server can't open the file: No such file or directory"

        Which (I think) means the program can't find the local file for reading?

        I'll use the code you posted to try and debug a little further!

        Thanks

        Eoin

[reply]
[d/l]

In Section Seekers of Perl Wisdom