On Jo, 2002-11-28 at 09:55, Stelian Iancu wrote:
> Hello!
>
> I have a simple form with a file upload field. Then, I want to save the
> uploaded file into a directory. So here it the code:
>
> #!/usr/bin/perl
>
> use strict;
> usw warnings;
> use CGI;
>
> my $q = new CGI;
> my $filename = $q->upload('fisier');
>
> my $buffer;
>
> open (OUTFILE, ">>/test/$filename");
> while (read($filename,$buffer,16384)) {
> print OUTFILE $buffer;
> }
>
> In the end, it will allow users to upload only .zip files and I tried
> with a sample zip file. The file is not copied correctly. Can you tell
> me where the problem is?
>
> Thanks!
> --
> Regards,
> Stelian I.
>
The problem was binmode. I put binmode($filename) and it worked. I also
discovered the File::Copy module and it worked using that module too. So
I guess I can use anyone of these approaches.
Also, are there any other gotchas that I have to take care in this case?
Thanks!
--
Regards,
Stelian I.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
