[Cascavel-pm] Usando o GD pra redimencionar imagens...

[João Gabriel]

Com a ajuda do DiogoAgra do canal #cgi da rede BRASnet.org consegui o código
que usa o GD pra redimencionar uma imagem:

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use GD;
$image = newFromJpeg GD::Image("imagem.jpg");
($width,$height) = $image->getBounds();
$novoW = "50";
$novoH = "50";
my $im = new GD::Image($novoW,$novoH);
$im->copyResized($image,0,0,0,0,$novoW,$novoH,$width,$height);
print "Content-type: image/png\n\n";
binmode STDOUT;
print $im->png;
exit;

[]'s
João Gabriel