Hola mE:
Puedes hacerlo fácilmente usando los modulos de
GD y
Image::Thumbnail que puedes encontrar en
http://search.cpan.org/.
Aquí te pongo un ejemplo para modificar las dimensiones de una imagen de manera que su lado más grande mida 50 px:
Código:
#!/usr/bin/perl -w
use GD;
use Image::GD::Thumbnail;
use strict;
#Ruta absoluta del directorio
my $directorio = "/ruta/absouta/al/direcotorio";
#Nombre del archivos
my $archivo = "miImagen.jpg";
#redimensionar imagen
&redimensionar_imagen($archivo);
exit(1); #terminamos el programa
sub redimensionar_imagen{
my $imagen = shift;
# Cargar la imagen
open IN, "$directorio/$imagen" or die "No se pudo abrir la imagen: $!";
my $srcImage = GD::Image->newFromJpeg(*IN);
close IN;
# Redimensionar donde su lado más grande sea de 50 px
my ($thumb,$x,$y) = Image::GD::Thumbnail::create($srcImage,50);
# Salvar imagen
open OUT, ">$directorio/th_$imagen" or die "No se pudo salvar: $!";
binmode OUT;
print OUT $thumb->jpeg;
close OUT;
} #sub redimensionar_imagen
SALUDOS