use Image::Info qw(image_info dim);

my $info = image_info("image.jpg");
if (my $error = $info->{error}) {
     die "Can't parse image info: $error\n";
}
my $color = $info->{color_type};

my($w, $h) = dim($info);
 
I tried this simple sample from Image::Info module successfully when running under perl.exe interpreter.  However, it fails when I perlApplified the script.  It failed with error
Can't parse image info: Can't locate Image/Info/JPEG.pm in @INC (@INC contains:
D:\Perl\testbed\graphics) at (eval 10) line 3.
 
Has anyone seen this before?  Please advise.
 
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to