Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad
 
Índice general » Mundo Perl » Básico » Consulta a un server Responder al tema
Nuevo tema


Página 1 de 1  [ 3 mensajes ] 
 
Nota 2006-10-02 14:34 @649

Perlero Nuevo
Registrado: 2006-10-02 14:27 @644
Mensajes: 3
Consulta a un server
Necesitaría saber si alguien conoce la forma de realizar una consulta a un server Web, y el resultado de esa consulta sea un archivo.jpg para mostra en una página en HTML.
Desde ya Muchas Gracias


Nota 2006-10-02 16:13 @717
Avatar de Usuario
Administrador
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Mensajes: 10249
Con el paquete lwp es muy fácil obtener la petición web. El resultado en forma de jpeg lo puedes crear con el módulo GD y luego sacarlo todo con el módulo CGI.


Nota 2006-10-02 17:37 @775
Avatar de Usuario
Creador de Perl en Español
Registrado: 2003-10-15 16:52 @744
Ubicación: México
Mensajes: 1163
Hola:

Es realmente muy sencillo. Por ejemplo podrías hacer un script de la siguiente manera:

Syntax: [ Download ] [ Hide ]
Using perl Syntax Highlighting
#!/usr/bin/perl -w

use strict;
use CGI;

my $query = new CGI;
my %Input = $query->Vars;


my $DIR = '/dir/a/imagenes';



if($Input{img} && -e "$DIR/$Input{img}.jpg"){

    print "Content-type: image/jpeg\n\n";
    open my $IMG, '<', "$DIR/$Input{img}.jpg" or die("No se encontró la imagen: $!");
    binmode($IMG);
    print do { local $/; <$IMG> };
    close $IMG;

}


exit(1);



Y después en tu HTML llamar a tu script así:

Syntax: [ Download ] [ Hide ]
  1. <img src="imagen.cgi?img=Perfil"> 
  2. <img src="imagen.cgi?img=Imagen1"> 



El script recibe el nombre de la imagen, lo busca en el directorio que le hayas puesto y la despliega. Esto es útil por ejemplo, si quieres sacar tus imagenes de un directorio privado, o quizá ponerle un contador.


Saludos

_________________
Uriel Lizama Perl programmer fundador de Perl en Español


Responder al tema  [ 3 mensajes ] 

Reglas del Foro
No puedes abrir nuevos temas en este Foro
No puedes responder a temas en este Foro
No puedes editar tus mensajes en este Foro
No puedes borrar tus mensajes en este Foro
No puedes enviar adjuntos en este Foro

Publicidad

Socializa

Síguenos por Twitter

Suscríbete GRATUITAMENTE al Boletín de Perl en Español

Saltar a:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traducción al español por Huan Manwë para phpbb-es.com
phpBB SEO