To check color of image using perl script

codewalker has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: To check color of image using perl script by Corion (Patriarch) on Dec 18, 2014 at 09:39 UTC
See Imager, or Image::Magick, or Image::Info. Have you heard of CPAN? It has a search facility.	[reply]
Re: To check color of image using perl script by SuicideJunkie (Vicar) on Dec 18, 2014 at 14:35 UTC
Of course (see above). Now you need to think about details. When you say Black & White, do you mean bitonal 1-bit color, or greyscale? Does a 32bit-color image count as B&W if the only colors used are Black + White? Does it count if the saturation of every pixel is (close to?) zero? (IE greys) Would you count a sepia tone image, which is basically greyscale with the blue reduced or removed. (All hues are the same)	[reply]
Re: To check color of image using perl script by karlgoethebier (Abbot) on Dec 18, 2014 at 10:58 UTC
identify? Read more... (2 kB) Update: Please see also: Kompendium der Photographie by Dr. Edwin Mutter The Negative Zone System Densitometry Regards, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply] [d/l]
Re: To check color of image using perl script by DanBev (Scribe) on Dec 18, 2014 at 15:40 UTC
Hi codewalker, maybe this can help you or you can get an idea. I've had a similar issue in a mail-to-fax context: the fax could be too black, maybe for an error. So, I cycle through the ps file (I create a ps from tiff by requirement) and count the frequency of '0' characters ('black' in ps). If this is too high, I deduce the image is too black. Can you dig into the image and count the values, if there are only 'black' and 'white' or various 'gray' or if there are other colours? What do you think about?	[reply]