Я не знаю готового библиотечного метода, но есть некоторые алгоритмы для измерения этого ...
Вы можете попытаться сложить абсолютные значения разностей одного пикселя в следующем, отдельно для каждого цветового канала. Образец изображения с самым высоким результатом выиграет. Тем не менее, это будет очень грубое измерение ...
Бит псевдокода, так как я не знаю perl:
complexity = 0
// image coordinates start at [0,0]
for x = 1 to image.max_x:
for y = 1 to image.max_y:
complexity += abs(image[x,y].red - image[x,y-1].red)
complexity += abs(image[x,y].red - image[x-1,y].red)
complexity += abs(image[x,y].blue - image[x,y-1].blue)
complexity += abs(image[x,y].blue - image[x-1,y].blue)
complexity += abs(image[x,y].green - image[x,y-1].green)
complexity += abs(image[x,y].green - image[x-1,y].green)