modificar imagenes

[mE]

hola
necesito hacer un cgi q modifique las dimensiones de una imagen, SIN usar el modulo MAGICK

gracias

[kidd]

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

[mE]

gracias por tu ayuda, use el modulo GD y todo funciono perfectamente.

gracias
mE