Список файлов, размер которых превышает заданный размер в горизонтальных пикселях

Question

Я пытаюсь создать Perl-скрипт, который будет перечислять все файлы в текущем каталоге с разрешением по горизонтали в пикселях, превышающим заданный размер.

До сих пор я пробовал экспериментировать с ls и идентифицировать, но неудалось найти решение.

Любая помощь будет принята с благодарностью.Спасибо

Answer 1

Вы можете попробовать Изображение :: Размер .

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