iPhoneのスクリーンショットを選別する

原稿を書いていると、まれに画像の一覧からiPhoneのスクリーンショットを選別してピックアップしたいと思うことがあります。今までに一回しかありませんでしたが……。

まあ、そのとき一回だけだったんで、手作業で探したほうが早かったかもしれませんが、遊びがてらにスクリプトを書いてみました。
画像のサイズを元に判定しています。

#!/usr/bin/env perl
use 5.12.3;
use warnings;
use utf8;
use open IO => qw/:utf8 :std/;
use Encode qw/decode_utf8 encode decode/;

use File::Find qw/find/;
use File::Copy qw/copy/;
use Image::Size qw/imgsize/;

my $path = shift @ARGV;

find(\&pickup, $path);

sub pickup {
  if (/\.png$/i && $File::Find::dir !~ /sumi/) {
    my ($size_x, $size_y) = imgsize($_);
    say decode_utf8($File::Find::dir), "/", $_, ": ", $size_y if $size_y == 960;
  }
}

Exifが読み込めたりすると、画像が回転していても確実に判定ができそうです。