image - 在 PERL 中检测黑色/几乎黑色的 JPG 图像

Question

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

Answer 1

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

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

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