在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