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

使用 ImageMagick 中的 identify 实用程序来获取宽度和高度。

Answer 3

1. 安装 PerlMagick perl 模块
   http://www.imagemagick.org/script/perl-magick.php

2. 使用类似于示例脚本的代码
   该网页中的示例来读取每个图像。

3. 使用以下命令查询每张图像的行数和列数
   $image->Get('rows')
   和
   $image->Get('columns') 并跳过太小的图像。