以水平像素列出大于给定大小的文件

Question

我正在尝试创建一个perl脚本，该脚本将列出当前目录中水平像素分辨率大于给定大小的所有文件。

到目前为止，我已尝试使用ls进行实验并确定但未能找到解决方案。

非常感谢任何帮助。 感谢

Answer 1

您可以尝试Image::Size。

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