ImageMagick / Perl сортировка изображений по ширине / высоте в пикселях

Question

Привет У меня проблемы с поиском информации о том, как вывести список изображений по ширине или высоте в пикселях с помощью Image Magick.что я хочу сделать, это отфильтровать изображения, которые меньше, чем указанный размер ширины или высоты пикселя.Это делается через Perl-скрипт, и любая помощь приветствуется.

Answer 1

На основании некоторого кода, который я использую для других вещей:

use strict;
use warnings;

use Image::Magick;
use Win32::Autoglob;

my $max_cols = 640;
my $max_rows = 480;

IMAGE:
for my $image_name (@ARGV) {

    my $image = Image::Magick->new;
    my $result = $image->Read($image_name);
    die "Failed to read $image_name - $result" if $result;

    my ($cols, $rows) = $image->Get('columns', 'rows');

    next IMAGE if $cols > $max_cols;
    next IMAGE if $rows > $max_rows;

    # your processing here...

}

Answer 2

1. Установите Perl-модуль PerlMagick из http://www.imagemagick.org/script/perl-magick.php

2. Используйте код, подобный Примеры сценариев примеров с этой веб-страницы, чтобы прочитать каждое изображение.

3. Запросите количество строк и столбцов в каждом изображении, используя $image->Get('rows') и $image->Get('columns'), и пропустите изображения, которые слишком малы.

Answer 3

Используйте утилиту identify из ImageMagick для получения ширины и высоты.