Question

When I try to print an image to STDOUT in a Perl CGI script, the image gets clipped when viewed in the browser.

Here is the following code:

if ($path =~ m/\.jpe?g$/i)
{    
  my $length = (stat($path))[7];
  $| = 1;
  print "Content-type: image/jpg\r\n";
  print "Content-length: $length\r\n\r\n";
  open(IMAGE,"<$path");
  binmode(IMAGE);
  binmode(STDOUT);
  my ($image, $buff);
  read IMAGE, $buff, $length;
  syswrite STDOUT, $buff, $length;
  close IMAGE;
}

Answer 1

FYI: I have come to the conclusion that the images are in fact corrupt, though they are fully viewable in Windows File Explorer.

The FireFox browser shows the Images clipped(no matter how they are accessed, so I guess this is no longer a Perl problem), but the Safari Browser displays them completely.

The images were re sampled from using Java’s imageIO in “jpg” mode. I just changed the mode to “png”, and now the newly generated images are showing perfectly in all browsers. So this was actually a Java imageIO issue.

It is solved.

Thank you everyone for your responses.