在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，因此深色的平均值小于5,000。

例：

这是一张深色图片：

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

这是一个较轻的：

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