指定されたサイズより大きなファイルを水平ピクセルで一覧表示する

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;