たまに&Image::Info::image_infoでエラーになるjpegがあるなぁ。 use Image::Info qw/image_info/; $_ = 'foo.jpg'; my $info = image_info $_; die "$_: $info->{error}\n" if $info->{error}; こんなコードを走らせると、 foo.jpg: substr out side of str…