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]

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

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

Check if the following two things are valid in your script:

1. Your generated HTML form source must be multipart: <form ENCTYPE="multipart/form-data" etc.

2. If you're uploading a binary file, call the binmode(OUTFILE); function (example):

  open (OUTFILE, ">>$file_path");

  binmode(OUTFILE);
  
  while($bytesread=read($file_name, $buffer, 1024)) 
  {
    print OUTFILE $buffer;
  }
[download]

Heidegger,

Thanks for your response. Here is the HTML code for the form.

<form action="filemngt_upload_file.pl" method="get" enctype="multipart
+/form-data">
<strong>File to uploaded?</strong>
<input type="file" name="UPLOADFILE" size="30">
<input type="submit" value="Upload File">
<input type="reset" value="Clear">
</form>
[download]

I think the above is OK. You might notice I am using 'get' instead of 'post'. This is because 'post' causes my program to lock on the server - ISP has been unable to offer an explanation as yet!.

Thanks

Eoin

You emphatically CANNOT use get with a multipart form, especially one that contains a file upload, you must use post.