为什么我的图像在使用此 Perl CGI 脚本提供服务时会被剪裁？

Question

当我尝试在 Perl CGI 脚本中将图像打印到 STDOUT 时，在浏览器中查看时图像会被剪切。

这是以下代码：

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

如果您确实想在服务之前将整个文件读入内存，请使用 File::Slurp：

#!/usr/bin/perl

use strict; use warnings;

use CGI::Simple;
use File::Slurp;
use File::stat;

local $| = 1;

my $cgi = CGI::Simple->new;

my $st = stat($path) or die "Cannot stat '$path'";

print $cgi->header(
    -type => 'image/jpeg',
    -length => $st->size,
);

write_file(\*STDOUT, {binmode => ':raw'}, 
    \ read_file( $path, binmode => ':raw' )
);

但是，对于大图像，读取整个文件会消耗大量内存。因此，请参阅我该如何使用 Perl CGI 脚本提供图像？。

Answer 2

编辑：由于stat似乎没有问题，还有一些想法：

尝试使用无缓冲而不是缓冲读取，即。使用 sysread 而不是 读取。或者反之亦然：同时使用缓冲的read和write。另外，尝试注释掉 $| 。有关 perl 缓冲 io 的详细信息，请参阅 正在遭受缓冲？ 。另请参阅如何我可以使用 Perl CGI 脚本提供图像吗？ 这里有一个明显有效的解决方案。 编辑结束

您使用了错误的stat 字段。 (stat($path))[10] 是ctime：自纪元以来 inode 更改时间（以秒为单位）。它应该是(stat($path))[7]，size：文件总大小，以字节为单位。

Answer 3

仅供参考：我得出的结论是，这些图像实际上已损坏，尽管它们在 Windows 文件资源管理器中完全可见。

FireFox 浏览器显示图像被剪切（无论如何访问它们，所以我想这不再是 Perl 问题），但 Safari 浏览器完全显示它们。

图像是使用 Java 的 imageIO 以“jpg”模式重新采样的。我刚刚将模式更改为“png”，现在新生成的图像在所有浏览器中都能完美显示。所以这实际上是一个 Java imageIO 问题。

解决了。

谢谢大家的回复。