Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: image upload size detection

by Samy_rio (Vicar)
on Aug 07, 2007 at 05:34 UTC ( #630962=note: print w/ replies, xml ) Need Help??


in reply to image upload size detection

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);

Regards,
Velusamy R.


eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';


Comment on Re: image upload size detection
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://630962]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (11)
As of 2014-12-19 20:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (91 votes), past polls