如何检测文件是否是perl中的图像

Question

为了设置一些变量，我需要信息，如果我的服务器上的给定文件是图像。我不知道任何关于文件的位置和名称。

有没有办法检测文件是否是图像而不看文件扩展名？

Answer 1

一个简单的方法是通过PerlMagickCPAN模块将工作委托给ImageMagick。 Identify和Ping方法是为此目的而设计的。

use strict; 
use Image::Magick; 

my $im = Image::Magick->new(); 

my ($width, $height, $size, $format) = $im->Ping('/path/to/my/image.jpg'); 

执行这个小程序之后，$format变量将包含与所述图像的所识别的格式的字符串（在本例中：“JPEG”）在出错的情况下，或undef（非现有的文件，无法识别的格式等）。

编辑： ...并完全回答你的问题：它可能是安全的假设，一个给定的文件是一个形象，如果Ping返回一个格式字符串，如果它的一部分，取其子集你决定白色 - 来自ImageMagick的list of supported formats（其中还包括非图像格式）。

Answer 2

JRFerguson在附带问题的评论中提到了命令file。它带有一个C库对手部分，libmagic。 Perl绑定被称为File::LibMagic。

use File::LibMagic qw(); 
my $detect = File::LibMagic->new; 
$detect->checktype_filename("first_success.jpg") =~ /^image/ 

表达式对图像类型返回true。

Answer 3

你已经有了两个很好的答案。在这些情况下还有另外一种工具可以有价值。这将比libmagic解决方案慢，但它有时更适用于附加信息和实用程序。我不知道哪个工具更全面或者可能会在边缘案例中失败。 Image::ExifTool –

use Image::ExifTool "ImageInfo"; 

my $info = ImageInfo(shift || die "Give an image file!\n"); 

print "This is a ", $info->{FileType}, "\n"; 

use Data::Dump "pp"; 
print "Here's more...\n"; 
pp $info; 

Answer 4

命令file，首先由@JRFerguson提到的，具有相对于File::LibMagic，Image::Magick，或Image::ExifTool限制。

但是，当您无法安装或使用这些模块时，file非常棒。至于示例代码，你可以去这样的事情：

my $file = "/dir/images/image.jpg"; 
my $type = `file $file`; 

unless ($type =~ /JPEG/i 
    || $type =~ /PNG/i) { 
print "The file is not a valid JPEG or PNG."; 
} 

这个想法是只针对已知图像格式的正则表达式。

Answer 5

这是我做到这一点的方法之一。使用CPAN“Image-Size-3.300> Image :: Size”的perl模块。它也有文件属性图像“类型”。然后，您可以使用这些变量并使用这些信息来处理应用程序的代码。

#!/usr/bin/perl 

use Image::Size; 

print "Content-type: text/html\n\n"; 

my ($image_width, $image_height, $image_type) = imgsize("path/image.jpg"); 

unless ($image_type =~ /JPG/i 
|| $image_type =~ /PNG/i) { 
print "The file is not a valid JPG or PNG."; 
} 

#To see the results printed to the web browser 
print "<br>(image.jpg) $image_width - $image_height - $image_type<br>\n"; 

exit(0);