linux - 在 Perl 中查找宽度和高度最小的 jpg

Question

我正在寻找一种方法来查找 (1) 最小宽度和 (2) 最小高度的文件并显示这些数字(最好是命令行，Linux 或 Windows)。我不知道使用什么工具，但我认为 Perl 及其软件包之一可能具有这种功能。

Answer 1

在 Linux 上，我只会从命令行使用 ImageMagick。您可能需要先安装它(例如，在 Ubuntu 上使用 sudo apt-get install imagemagick):

narrowest=$(identify *jpg | sort -nr -k3 | tail -n 1 | cut -d\[ -f1)
shortest=$(identify *jpg | sort -tx -nr -k2 | tail -n 1 | cut -d\[ -f1)

在 Windows 上，除非您安装 Cygwin 或其他软件，否则这不是一个选项。

在 Linux 和 Windows 上，您可以使用 Image::Magick 模块从 Perl 访问该功能，但您必须自己安装该模块。请参阅 Borodin 的代码答案。