¡Ya estamos en Twitter!

Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad

Leer dimensiones de las imágenes

por Uriel Lizama

Introducción

Hace poco eiial pregunto en el foro como podía sacar las dimensiones de unas imágenes.

Le respondí con un par de soluciones posibles, y pues navegando en el foro se me hizo que era un buen tema para el siguiente tutorial, así que aqui esta, vamos a ver como hacer para leer las dimensiones de nuestras imágenes.


Dame el tamaño

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.

¿Quiéres más tutoriales como este? Escribir tutoriales toma una gran cantidad de tiempo y esfuerzo. Si este tutorial te ayudó a aprender o a solucionar algo, por favor considera dejar alguna donación en apoyo a Perl en Español.

Cliquea en el botón de abajo para dejar tu donación por medio de PayPal.

Comparte:
Categorías de Tutoriales:
En Nuestros Foros:

    Software error:

    junk after document element at line 1, column 32, byte 32 at /usr/lib64/perl5/vendor_perl/XML/Parser.pm line 187.
    

    For help, please send mail to the webmaster ([email protected]), giving this error message and the time and date of the error.

  • Entra a los foros »
Socializa:
Síguenos por Twitter

Suscríbete GRATUITAMENTE al Boletín de Perl en Español

Perl en Español es mantenido con Movable Type
Todo el contenido de Perl en Español está bajo una licencia CC:
Creative Commons License