Untitled

#!/usr/bin/perl -w

use strict; #No nos olvidemos de este pragma

use GD;
use Image::GD::Thumbnail;


# Cargamos la imagen
open IN, "imagen.jpg" or die "No se pudo abrir imagen: $!";
my $imagenPrinc = GD::Image->newFromJpeg(*IN);
close IN;


#Checamos si se pudo leer correctamente la imagen
if(defined($imagenPrinc)){

#Redimensionamos la imagen
my ($thumb,$x,$y) = Image::GD::Thumbnail::create($imagenPrinc,150);

# Salvamos el thumbnail
open OUT, ">imagen_thumb.jpg" or die "No se pudo salvar: $!";
binmode OUT;
print OUT $thumb->jpeg;
close OUT;

}
#No se pudo leer correctamente la imagen
else{
print "El formato de la imagen debe de ser JPG o JPEGn";
}

exit(1);