Question

I am trying to create a perl script that will list all files in the current directory with a horizontal pixel resolution greater than a given size.

So far I have tried experimenting with ls and identify but have not been able to find a solution.

Any assistance would be greatly appreciated.
Thanks

Answer 1

You can try Image::Size.

use Image::Size;
use constant GIVEN_WIDTH = '100';
my @filtered_images = grep { my @d = imgsize( $_ ); $d[0] > GIVEN_WIDTH } @images;