주어진 크기보다 큰 파일을 가로 픽셀로 나열하십시오.

Question

주어진 크기보다 큰 수평 픽셀 해상도로 현재 디렉토리의 모든 파일을 나열하는 펄 스크립트를 작성하려고합니다.

지금까지 나는 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;