如何在 Perl 中验证图像文件？

我如何验证 jpg 文件是有效的图像文件。我们正在使用 FTP 将文件写入目录，但我们似乎在文件完成写入之前就获取了该文件，从而创建了无效图像。我需要能够确定何时不再写入它。有任何想法吗？

最简单的方法可能是将文件写入临时目录，然后在写入完成后将其移动到真实目录。

或者你可以检查here http://search.cpan.org/~bettelli/Image-MetaData-JPEG-0.15/lib/Image/MetaData/JPEG.pod.

JPEG::错误

[参数：无] 如果在调用 new 后文件引用仍然未定义，则该文件将被视为无法被该模块解析，并且应该发出一些错误消息并转到另一个文件。可以使用 Error 方法检索解释失败原因的错误消息：

EDIT:

图片::测试JPG http://search.cpan.org/~jhudge/Image-TestJPG-1.0/TestJPG.pm可能会更好。