#!/usr/bin/env perl
#
# Outputs some *simple* color histogram values
# based on hue of colors found in the picture
#
# Usage:
# perl hue_frequencies.pl <some_png_picture>
#
# Example:
# perl hue_frequencies.pl ferrari.png
#
# $Id: hue_frequencies.pl 121 2008-10-14 20:45:08Z Cosimo $
use strict;
use Imager::SkinDetector;
my $name = $ARGV[0]
or die "Usage: $0 <picture_filename>\n";
my $img = Imager::SkinDetector->new(file => $name)
or die "Can't load image '$name'.\n";
my @freq = $img->hue_frequencies();
my $n = 0;
for (@freq) {
printf "Interval n. %d\tValue: %.3f%%\n", ++$n, 100*$_;
}
print "Has different colors: ", $img->has_different_colors(), "\n";