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
-
- Publicidad
Consulta a un server
3 mensajes
• Página 1 de 1
Consulta a un server
por malmada » 2006-10-02 14:34 @649
- malmada
- Perlero nuevo
- Mensajes: 3
- Registrado: 2006-10-02 14:27 @644
Publicidad
por 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
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por kidd » 2006-10-02 17:37 @775
Hola:
Es realmente muy sencillo. Por ejemplo podrías hacer un script de la siguiente manera:
Y después en tu HTML llamar a tu script así:
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
Es realmente muy sencillo. Por ejemplo podrías hacer un script de la siguiente manera:
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);
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.002 segundos, usando GeSHi 1.0.8.4
Y después en tu HTML llamar a tu script así:
- <img src="imagen.cgi?img=Perfil">
- <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
-
kidd - Creador de Perl en Español
- Mensajes: 1166
- Registrado: 2003-10-15 16:52 @744
- Ubicación: México
3 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado