Enjoy an ad free experience by logging in. Not a member yet? Register.
Results 1 to 1 of 1
Thread: Image::Magick and CGI help
10-11-2002, 02:57 PM #1
- Join Date
- Oct 2002
- Lancaster, UK
- Thanked 0 Times in 0 Posts
Image::Magick and CGI help
Can anyone tell my why the following doesn't work?
#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use CGI; use Image::Magick; $cgi=new CGI; $filename = "myimage.jpg"; $thumbfilename = "t_image.jpg"; $image = Image::Magick->new; open(IMAGE,"$filename"); $image->Read(file=>\*IMAGE); close(IMAGE); $image->Resize(width=>'130', height=>'130', filter=>'Bessel'); open(IMAGE,">$thumbfilename"); $image->Write(file=>\*IMAGE, filename=>$thumbfilename); close(IMAGE); print $cgi->header(); print "done!<BR><BR>"; print "<IMG SRC=\"$thumbfilename\" BORDER=1>";
I will be extremely grateful for any help whatsoever
Cheers in advance