Imagenperl2

#!/usr/bin/env perl

# Script para ver las dimensiones de una imagen
# Programación: Ejemplo para Tiempo de Tux
# Por : demianx864
# Eres libre de modificar y añadir lo que quieras al script
# Gracias al modulo Image::Size
# Para mas información visita y comenta en <http://www.itimetux.com>

use strict;
use Image::Size;
system("clear");

print "Ruta de la imagen :  \n";

my @formatos = (

 'formatos --file-filter=*.JPG',
 'formatos --file-filter=*.bmp',
 'formatos --file-filter=*.jpeg',
 'formatos --file-filter=*.jpg',
 'formatos --file-filter=*.png',
 'formatos --file-filter=*.tif',
 'formatos --file-filter=*.xbm',
 'formatos --file-filter=*.xpm',
 'formatos --file-filter=*.gif'
);

my $imagen =`zenity --file-selection @formatos --title="Selecciona una imagen"`;
chop($imagen);

if ( $imagen eq $1 ) {
    print "No elegiste una imagen\n";
    exit(1);
}
else{

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

print "Tu imagen $imagen es de :\n";
print "Ancho: $ancho x Alto: $alto\n";

exit(1);
}