Leer dimensiones de las imágenes

Lo primero que uno piensa como solución para esto es en el famoso módulo Image::Magick, pero el problema es que perl no lo trae por default y si no puedes instalar nuevos módulos estas en un problema, así que mejor vamos a usar un módulo básico pero que sirve perfecto para tomar dimensiones, y que debe de venir por default en todas las distribuciones de perl.

El módulo se llama Image::Size y el código para tomar las dimensiones es:
#!/usr/bin/perl -w

use strict;
use Image::Size;

#ruta absoluta a tu imagen, tambien puede ser relativa al directorio
my $img = "/ruta/absoluta/imagen.jpg";

my ($ancho, $alto) = imgsize($img);

#Imprimir dimensiones
print "Imagen: $img\n";
print "$ancho x $alto\n";

exit(1);

Ahora también puedes usar el módulo GD (que también tiene muchisimas funciones para editar imagenes) el cual usarías de esta manera:
#!/usr/bin/perl -w

use strict;
use GD;

my $img = "/ruta/a/imagen.jpg";

my $image = GD::Image->new($img)

my ($ancho,$alto) = $image->getBounds()

#Imprimir dimensiones
print "Imagen: $img\n";
print "$ancho x $alto\n";

exit(1);

Cualquiera de estas soluciones son muy factibles, pues usa módulos que vienen con la distribución normal de perl.


Autor: Uriel Lizama
http://perlenespanol.baboonsoftware.com/tutoriales/graficosimagenes/leer_dimensiones_de_las_imagenes.html

Usuarios que han visto este tema también han visto...

- Desplegar HTML con Perl
- Mostrar errores en el navegador con Perl
- Usando el hash en Perl
- Variables y estructura de los datos en Perl
- Usar módulos sin instalar en PERL

- Versión imprimible de este documento
- Enviar por e-mail este documento