Uploading problem

[ETbyrne]

Hi, I'm having a problem uploading a file using perl. I can get the file uploaded but it becomes distorted. Here's the uploading part of the script.

open(OUT,">./mywebs/ETbyrne/youth/album/images/$random.jpg") or &error("Can not open outfile for writing: $!");
flock(OUT,LOCK_EX);
my $file_len = 0;
while (read($file,my $i,1024))
  {
  print OUT $i;
  $file_len = $file_len + 1024;
  if ($file_len > 1024000)
    {
    close(OUT);
    &error("File is to large, photo must be less than 1MB. Save aborted.");
    }
  }
close(OUT);

Thanks for all help!

_______________________________________

You don't know me.

 

[KevinADC]

Not sure what a "distorted" file means, but you probably just need to use binmode:

open(OUT,">./mywebs/ETbyrne/youth/album/images/$random.jpg") or &error("Can not open outfile for writing: $!");
[b]binmode(OUT);[/b]

------------------------------------------
- Kevin, perl coder unexceptional!

 

[ETbyrne]

Thanks, that was what I needed!

And by distorted I meant that it uploaded the file and it was the right hight and width, but the image was screwed up, like three times as bad as if you saved a .bmp with tons of detail as a .gif. x_x

_______________________________________

You don't know me.