The UNIX and Linux Forums  


Go Back   El UNIX y Linux Foros > Arriba Foros > Programación de scripts de shell y
.
google unix.com



Programación de scripts de shell y Plantear preguntas sobre KSH, CSH, SH, BASH, PERL, PHP, SED, AWK y otros scripts de shell y lenguajes de script de shell aquí.

Más UNIX y Linux Foro Temas usted puede encontrar útiles
Hilo Hilo para principiantes Foro Respuestas Último mensaje
Servidor proxy en Digital UNIX V4.0E? alvoryx UNIX for Dummies Preguntas y Respuestas 0 10-25-2006 03:29 PM
cómo obtener la propiedad intelectual para servidor proxy ppass Linux 3 09-26-2005 09:46 AM
(Perl) de Microsoft SQL Server para el cliente Solaris. cant encontrar ... Optimus_P Programación de scripts de shell y 3 10-14-2002 12:13 PM
unix servidor MS detrás del servidor proxy RSlegers UNIX for Dummies Preguntas y Respuestas 2 09-16-2002 11:08 PM
el transporte a través de un servidor proxy Garry Redes IP 2 01-30-2002 05:18 AM

 
English Japanese Spanish French German Portuguese Italian Dutch Swedish Russian Norwegian Hungarian Hebrew Danish Bulgarian Greek Powered by Powered by Google
 
Linkback vínculo Herramientas de hilo Buscar en este Hilo Tasa de Hilo Modos de visualización
  #1 (Enlace permanente)  
Old 09-29-2008
Dabheeruz Dabheeruz is offline
Usuario Registrado
  
 

Fecha: Sep 2008
Puestos: 19
Servidor proxy / cliente en Perl

He estado jugando con un proxy de cliente / servidor de aplicación que se escucha en el sistema cliente en el puerto 7070 permite decir. De usuario de configuración de proxy del navegador está configurado para "localhost" port "7070".
Cuando esta aplicación proxy recibe una petición de una URL que debe FETCH y mostrar la dirección URL en el navegador.

Ya hice el oyente parte de la secuencia de comandos (es fácil), pero ¿cómo puedo llamar y obtener la dirección URL que el usuario solicite a su navegador y mostrarlo en el navegador que actúe como un proxy.

Este es el código hasta el momento. Estoy totalmente atascado .. cualquier ayuda es muy apreciada


Código:
#!/usr/bin/perl
use IO::Socket;

my $sock= new IO::Socket::INET (
                                LocalHost=> 'localhost',
                                LocalPort=> '7070',
                                Proto=> 'tcp',
                                Listen=> 1,
                                Reuse=> 1,
                                Type=> SOCK_STREAM,
                                );
die "Could not create socket:  $!\n" unless $sock;

my $new_sock = $sock->accept();
        while (<$new_sock>) {
                print $_;
        }
        close ($sock);

 

Marcadores

Herramientas de hilo Buscar en este Hilo
Buscar en este Hilo:

Búsqueda avanzada
Modos de visualización Vota a este hilo
Vota a este hilo:

Normas de envío
puede que no nuevo puesto de hilos
puede que no enviar respuestas
puede que no enviar archivos adjuntos
puede que no editar sus puestos

Código BB es Encendido
Emoticones son Encendido
[IMG] código Encendido
Código HTML es Apagado
Trackbacks son Encendido
Pingbacks son Encendido
Refbacks son Encendido




Todas las horas son GMT -4. La hora es 10:01 PM.


Powered by: vBulletin, Copyright © 2000 - 2006, Jelsoft Enterprises Limited. Traducciones de idiomas Powered by .
vBCredits v1.4 Copyright © 2007 - 2008, PixelFX Estudios
El UNIX y Linux Foros Contenido Copyright © 1993-2009. Todos los derechos Reserved.Ad Gestión por RedTyger

Las direcciones URL de contenido vBSEO 3.2.0