Re: image upload size detection

[Samy_rio]

TIMTOWTDI

use strict;
use warnings;
use Image::Info qw(image_info dim);

opendir (FF, 'D:\Logos');
my @image = grep /\.(jpg|gif|png)$/, readdir(FF);
closedir(FF);

open (OUT, ">D:\\Logos\\Dim.txt") ||die ($!);

for (@image){
    
     my $info = image_info("D:\\Logos\\$_");
 
     if (my $error = $info->{error}) {
     die "Can't parse image info: $error\n";
     }
     my($w, $h) = dim($info);
     print OUT "$_\t$h\t$w\n";
 
}

close(OUT);