bigup401 has asked for the wisdom of the Perl Monks concerning the following question:
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;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: image resize error
by Corion (Patriarch) on Oct 19, 2018 at 06:17 UTC | |
by bigup401 (Pilgrim) on Oct 19, 2018 at 07:54 UTC | |
by Corion (Patriarch) on Oct 19, 2018 at 07:58 UTC | |
by bigup401 (Pilgrim) on Oct 19, 2018 at 10:39 UTC | |
by marto (Cardinal) on Oct 19, 2018 at 10:52 UTC | |
| |
|