Como gerar thumbnail de uma imagem de outro site?

[Marcelouco]

Olá!

Eu gostaria de saber: existe alguma forma de gerar um thumb, em perl, de uma imagem hospedada em outro site?

Por exemplo:

Quero gerar uma thumb por uma url como: www.site.com/cgi-bin/thumb.pl?url=http://www.outrosite.com/imagem_grande.jpg

Eu poderia gerar e usá-la assim: <img src="www.site.com/cgi-bin/thumb.pl?url=http://www.outrosite.com/imagem_grande.jpg">

Em perl, existe alguma forma de fazer?

Aguardo uma resposta, obrigado.

[danielmantovani]

É claro que tem! E é super fácil!

Você pode usar o LWP::Simple para pegar a imagem.

#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple;

my $imagem = get("http://url/imagem.jpg");
...

E depois usar o Image::Magick,

http://www.imagemagick.org/script/perl-magick.php

Thumbnail geometry=>geometry, width=>integer, height=>integer changes the size of an image to the given dimensions and removes any associated profiles.

http://search.cpan.org/~jcristy/PerlMagick-6.67/Magick.pm.in