• Publicidad

Consulta a un server

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Consulta a un server

Notapor malmada » 2006-10-02 14:34 @649

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
malmada
Perlero nuevo
Perlero nuevo
 
Mensajes: 3
Registrado: 2006-10-02 14:27 @644

Publicidad

Notapor explorer » 2006-10-02 16:13 @717

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.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor kidd » 2006-10-02 17:37 @775

Hola:

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

Sintáxis: [ Descargar ] [ Ocultar ]
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);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4



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

Sintáxis: [ Descargar ] [ Ocultar ]
  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
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 20 invitados