[Cascavel-pm] Modulo Image
Sammuel Souza
sammuel.souza em gmail.com
Quinta Maio 10 03:47:00 PDT 2012
Não sei se já foi se foi desculpe o flood, mas não tive resposta
procurei revirei e não achei, é bem simples mas nao consegui.
Script:
#!/usr/bin/perl
use CGI;
use Image::Magick;
my $im = Image::Magick->new ();
$im->ReadImage('foto.jpg');
$im->ReadImage('baixo.jpg');
my ($height, $width) = $im->Get ('height', 'width');
$im->Thumbnail(width=>640, height=>427);
$im->Set(type=>'truecolor');
$im->Set(magick=>'JPEG');
$im->Set(quality=>80);
$im->Set(size=>'640x427');
print "Content-type: image/jpeg\n\n";
binmode STDOUT;
print $im->Write( "jpeg:-" );
o Script é para imprimir a foto no tamanho certo, e colocar propaganda na
parte,
inferior da imagem.
Porem ele só imprime foto.jpg não colocando baixo.jpg
E quando clica para salvar a imagem no pc ele salva como image.cgi
alguem saberia me ajudar?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20120510/d7ab5377/attachment.html>
Mais detalhes sobre a lista de discussão Cascavel-pm