i need some correction in my code. am getting Image::Resize->new(): usage error
my $Newfile='0911'; my $copy_dir_qfn = 'avator/'; my $upload_fh = $CGI->upload("IMAGE"); my $image = Image::Resize->new($upload_fh); my $gd = $image->resize(100, 100); my ($file_extension) = $gd =~ /([^.]+)$/; my $rename = $copy_dir_qfn."$Newfile.$file_extension"; open OUTFILE,'>',$rename or die "$!"; binmode OUTFILE; while (<$upload_fh>){ print OUTFILE; } close OUTFILE;
In reply to image resize error by bigup401
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |