嗨,我无法找到有关如何使用Image Magick按像素宽度或高度列出图像的任何信息。我想做的是滤除小于指定宽度或高度的像素的图像。这是通过perl脚本完成的,可以提供任何帮助。

最佳答案

基于一些用于其他内容的代码:

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...

}

07-24 09:47
查看更多