横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 …