横1600px、縦1200pxのファイルをリストアップするためのスクリプト。
use strict;
use warnings;
use Image::Size;
foreach my $dir (0..9, 'a'..'f') {
opendir DIR, $dir;
while (defined($_ = readdir DIR)) {
next if /^\.\.?$/;
my ($x, $y) = imgsize "$dir/$_";
print "$dir/$_\n" if ($x == 1600 && $y == 1200);
}
closedir DIR;
}