在PERL中检测黑色/近乎黑色的JPG图像

Question

我想使用PERL从文件夹中检测黑色/几乎黑色的JPEG图像。 您对我应该使用的方法/模块有什么建议吗？

Answer 1

暗图像通常具有低平均像素值。

您可以在命令行中使用ImageMagick identify获取图像像素的平均值，如下所示：

identify -format "%[mean]" input.png

或使用

identify -verbose input.png

并寻找您认为最有帮助的参数。

或者像这样使用Perl：

#!/usr/bin/perl
use strict;
use warnings;
use Image::Magick;

my $image = Image::Magick->new;
$image->ReadImage("c.png");

print $image->Get("%[mean]");

在Perl的情况下，范围是0-65535，所以黑暗的范围低于5000。

示例：

这是一张黑暗的图片：

identify -format "%[mean]" dark.jpg
16914.6

这是一个较轻的一个：

identify -format "%[mean]" light.jpg
37265.7