![]() |
|
|
google unix.com
|
|||||||
| Foros | Registro | Reglas de los Foros | Enlaces | Álbumes | Preguntas más frecuentes | Lista de miembros | Calendario | Búsqueda | Puestos de hoy | Marcar Foros Como Leídos |
| 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 |
|
|
Linkback vínculo | Herramientas de hilo | Buscar en este Hilo | Tasa de Hilo | Modos de visualización |
|
||||
|
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 |
| Modos de visualización | Vota a este hilo |
|
|