[Perl] Samplear con PERL

[Salvador Ortiz Garcia]

On Wed, 2002-05-15 at 17:14, Alejandro G. Bedoya wrote:
> Hablando de gr=E1ficas, alguien conoce un m=F3dulo simple que permita res=
amplear
> imagenes JPG al vuelo. Lo que quiero hacer es que de un catalogo de image=
nes
> haga "thumbnails" al vuelo, me dijeron que habia algo similar para php.

Por ah=ED encuentras Image::GD::Thumbnail, yo no lo he probado.

Pero con GD vil y simple no es complicado:

   ...
   my $orig =3D GD::Image->newFromJpeg(...);
   my ($ox,$oy) =3D $orig->getBouds();
   my $thub =3D GD::Image->new($ox/$scala,$oy/$scala);
   $thumb->copyResized($orig,0,0,0,0,$ox/$scala,$oy/$scala,$ox,$oy);
   ...
   print SALIDA $thumb->jpeg;

Ahora que si quieres algo m=E1s grande y con muchos "features", puedes
usar PerlMagick, aunque no s=E9 si existe ImageMagick para Windows.


Saludos.

Salvador Ortiz.