Re: Using GD.pm

I believe that GD doesn's support jpg format. If you want image height/width there are easier ways of doing it such as the Image::Info, Image::Size and Image::Magick modules. (Image::Magick is way overkill if you only need height and width, but it is the swiss-army knife of perl image manipulation modules).

Comment on Re: Using GD.pm

Replies are listed 'Best First'.
RE: Re: Using GD.pm by BBQ (Curate) on Jul 19, 2000 at 05:34 UTC
Nope! GD supports jpeg just fine... At least, this works for me: `use GD; open(IMAGE, 'foo.jpg') or die("Can't open foo.jpg: $!"); my $im = newFromJpeg GD::Image(IMAGE) or die("Can't create image from foo.jpg: $!"); my ($w,$h) = $im->getBounds(); close(IMAGE); print "foo.jpg is $w x $h\n"; ^d foo.jpg is 1024 x 768` [download] I guess it might help if our GD-using-AM-poster ran the script from console first, or at least used CGI::Carp instead of just reporting the 500 error... That way we might actually know what the error was, and not just know that there was an error. Oh well, the above works fine for me. #!/home/bbq/bin/perl # Trust no1!	[reply] [d/l]

Replies are listed 'Best First'.

RE: Re: Using GD.pm
by BBQ (Curate) on Jul 19, 2000 at 05:34 UTC

use GD;

open(IMAGE, 'foo.jpg') 
    or die("Can't open foo.jpg: $!");

my $im = newFromJpeg GD::Image(IMAGE) 
    or die("Can't create image from foo.jpg: $!");

my ($w,$h) = $im->getBounds();

close(IMAGE);

print "foo.jpg is $w x $h\n";
^d
foo.jpg is 1024 x 768
[download]

was

#!/home/bbq/bin/perl
# Trust no1!

[reply]
[d/l]