在水平像素中列出大於給定大小的文件

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;