Esse código aqui funcionou corretamente.
*#!/usr/bin/perl
use Image::Magick;
$image = Image::Magick->new;
$image->Read('imagem1.png');
my ($l, $a) = $image->Get('width', 'height');
print $l . 'x' . $a;*
--
..............................................................................
*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
