Lucas, fiz um teste aqui e funcionou normalmente. Nota estou usando Linux openSUSE.
Segue os passos: Instalei o pacote rpm ( zypper in perl-PerlMagick ) que instalou como dependência o pacote ImageMagick E testei esse script mostrado nesse tuto. http://www.imagemagick.org/script/perl-magick.php #!/usr/bin/perl use Image::Magick; my($image, $x); $image = Image::Magick->new; $x = $image->Read('girl.png', 'logo.png', 'rose.png'); warn "$x" if "$x"; $x = $image->Crop(geometry=>'100x100+100+100'); warn "$x" if "$x"; $x = $image->Write('x.png'); warn "$x" if "$x"; Alguns links que eu achei: http://www.imagemagick.org/script/perl-magick.php http://search.cpan.org/~jcristy/PerlMagick-6.77/Magick.pm http://www.adp-gmbh.ch/perl/image_magick.html Não se isso vai ajudar. Em 15 de setembro de 2012 18:10, Daniel Mantovani < [email protected]> escreveu: > Lucas, > > Gostaria muito de te dizer o que fazer exatamente, step-by-step mas estou > muito ocupado agora. Mas eu tenho quase certeza que o README do > Image::Magick diz como apontar o "lib" e o "include". > > > $cpan > cpan>look Image::Magick > $less README > > > []'s! > > > > -- > "A Jedi uses the Force for knowledge and defense, never for attack." - Yoda > > Software Engineer > Just Another Perl Hacker > Daniel Mantovani +5511 8538-9897 > XOXO > > On Sep 15, 2012, at 4:34 PM, Lucas Moraes <[email protected]> > wrote: > > > /usr/local/include/ImageMagick > > > > Em 15 de setembro de 2012 16:23, Daniel Mantovani > > <[email protected]> escreveu: > >> Lucas, > >> > >> O processo de binding não está encontrando os headers do ImageMagick. > >> > >> Qual diretório foi instalado o ImageMagick ? > >> > >> -- > >> "A Jedi uses the Force for knowledge and defense, never for attack." - > Yoda > >> > >> Software Engineer > >> Just Another Perl Hacker > >> Daniel Mantovani +5511 8538-9897 > >> XOXO > >> > >> On Sep 15, 2012, at 4:13 PM, Lucas Moraes <[email protected]> > wrote: > >> > >>> No ubuntu da minha maquina também esta funcionando, mas no Debian 6 > não. :/ > >>> > >>> 2012/9/15 Daniel Vinciguerra <[email protected]>: > >>>> Lucas, aqui rolou! > >>>> > >>>> http://imageshack.us/f/193/screenshotfrom201209151.png/ > >>>> > >>>> Daniel Vinciguerra > >>>> Web Solutions Architect and Co-Owner at Bivee > >>>> http://github.com/dvinciguerra > >>>> > >>>> > >>>> > >>>> 2012/9/15 Daniel Mantovani <[email protected]> > >>>>> > >>>>> Essa saída do teste não está completa, mande uma completa. > >>>>> > >>>>> -- > >>>>> "A Jedi uses the Force for knowledge and defense, never for attack." > - > >>>>> Yoda > >>>>> > >>>>> Software Engineer > >>>>> Just Another Perl Hacker > >>>>> Daniel Mantovani +5511 8538-9897 > >>>>> XOXO > >>>>> > >>>>> On Sep 15, 2012, at 3:49 PM, Lucas Moraes < > [email protected]> > >>>>> wrote: > >>>>> > >>>>>> fiz um teste com esse script: > >>>>>> my $test=new Image::Magick; > >>>>>> print $test->GetAttribute('version'); > >>>>>> > >>>>>> me retornou isso: > >>>>>> ImageMagick 6.7.9-5 2012-09-15 Q16 http://www.imagemagick.org > >>>>>> > >>>>>> Mantovani fiz o que me pediu veja o teste: > >>>>>> http://pastebin.com/yRmiGXmw > >>>>>> > >>>>>> avisando que instalei o modulo que veio jundo com imagemagick > baixado > >>>>>> do site oficial do mesmo. > >>>>>> > >>>>>> Em 15 de setembro de 2012 15:42, Daniel Mantovani > >>>>>> <[email protected]> escreveu: > >>>>>>> Bom dia, > >>>>>>> > >>>>>>> Qual a versão do Image Magick instalada ? > >>>>>>> > >>>>>>> Por gentileza, abra o CPAN e teste o módulo. > >>>>>>> $cpan > >>>>>>> cpan>test Image::Magick > >>>>>>> > >>>>>>> > >>>>>>> > >>>>>>> -- > >>>>>>> "A Jedi uses the Force for knowledge and defense, never for > attack." - > >>>>>>> Yoda > >>>>>>> > >>>>>>> Software Engineer > >>>>>>> Just Another Perl Hacker > >>>>>>> Daniel Mantovani +5511 8538-9897 > >>>>>>> XOXO > >>>>>>> > >>>>>>> On Sep 15, 2012, at 3:35 PM, Lucas Moraes > >>>>>>> <[email protected]> wrote: > >>>>>>> > >>>>>>>> Boa tarde Mongers :) > >>>>>>>> Instalei Image::Magick, o problema que não esta funcionando, mas > não > >>>>>>>> retorna erro. > >>>>>>>> > >>>>>>>> Esse código abaixo era para retornar altura e largura, mas > retorna em > >>>>>>>> branco: > >>>>>>>> my $imagem = Image::Magick->new; > >>>>>>>> $imagem->Read('/home/lucas/Zoio/root/static/images/imagem.jpg'); > >>>>>>>> my ($l, $a) = $imagem->Get('width', 'height'); > >>>>>>>> print $l . 'x' . $a; > >>>>>>>> > >>>>>>>> A imagem existe, já fiz vários teste e nada. > >>>>>>>> > >>>>>>>> Alguém pode me ajudar? > >>>>>>>> > >>>>>>>> Desde já eu agradeço :) > >>>>>>>> =begin disclaimer > >>>>>>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > >>>>>>>> SaoPaulo-pm mailing list: [email protected] > >>>>>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > >>>>>>>> =end disclaimer > >>>>>>> > >>>>>>> =begin disclaimer > >>>>>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > >>>>>>> SaoPaulo-pm mailing list: [email protected] > >>>>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > >>>>>>> =end disclaimer > >>>>>> =begin disclaimer > >>>>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > >>>>>> SaoPaulo-pm mailing list: [email protected] > >>>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > >>>>>> =end disclaimer > >>>>> > >>>>> =begin disclaimer > >>>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > >>>>> SaoPaulo-pm mailing list: [email protected] > >>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > >>>>> =end disclaimer > >>>> > >>>> > >>>> > >>>> =begin disclaimer > >>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > >>>> SaoPaulo-pm mailing list: [email protected] > >>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > >>>> =end disclaimer > >>>> > >>> =begin disclaimer > >>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > >>> SaoPaulo-pm mailing list: [email protected] > >>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > >>> =end disclaimer > >> > >> =begin disclaimer > >> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > >> SaoPaulo-pm mailing list: [email protected] > >> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > >> =end disclaimer > > =begin disclaimer > > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > > SaoPaulo-pm mailing list: [email protected] > > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > > =end disclaimer > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: [email protected] > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > -- .............................................................................. *Com Deus todas as coisas são possíveis* ::: LinuxPro<http://www.linuxpro.com.br> *"A qualidade nunca se obtém por acaso; ela é sempre o resultado do esforço inteligente." (John Ruskin) "A mente que se abre a uma nova ideia jamais volta ao seu tamanho original" (Albert Einstein)*
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
