![]() |
Bonjour et bienvenu par les États-Unis à la UNIX et Linux Forums! Merci de votre visite et vous joindre à notre communauté mondiale.
|
|
google unix.com
|
|||||||
| Forums | S'inscrire | Forum Rules | Liens | Albums | FAQ | Liste des membres | Calendrier | Recherche | Aujourd'hui, les postes | Marquer les forums comme lus |
| De programmation et de script Shell Posez vos questions à propos de KSH, CSH, SH, BASH, PERL, PHP, SED, awk et d'autres scripts shell et les langages de script shell ici. |
Plus d'UNIX et Linux Forum Sujets Vous trouverez peut-être utile
|
||||
| Fil | Thread Starter | Forum | Réponses | Last Post |
| Serveur proxy sur Digital UNIX V4.0E? | alvoryx | UNIX pour les nuls Questions et réponses | 0 | 10-25-2006 03:29 PM |
| comment obtenir la propriété intellectuelle pour un serveur proxy | ppass | Linux | 3 | 09-26-2005 09:46 AM |
| (perl) Microsoft SQL Server pour les clients Solaris. cant find it ... | Optimus_P | De programmation et de script Shell | 3 | 10-14-2002 12:13 PM |
| unix serveur MS derrière un serveur proxy | RSlegers | UNIX pour les nuls Questions et réponses | 2 | 09-16-2002 11:08 PM |
| l'acheminement à travers un serveur proxy | Garry | IP Networking | 2 | 01-30-2002 05:18 AM |
![]() |
|
|
LinkBack | Thread Tools | Recherche sur ce Thread | Rate Thread | Modes d'affichage |
|
|
|
||||
|
Proxy server / client en Perl
J'ai été jouer avec un proxy client / serveur, application qui va écouter sur le système client sur le port 7070 permet de dire. L'utilisateur du proxy du navigateur est configuré pour la mise en "localhost" port "7070".
Lorsque cette procuration app est une demande pour une URL, il doit récupérer l'URL et l'afficher sur le navigateur. J'ai déjà fait partie de l'auditeur le script (il était facile), mais comment puis-je puis appeler et obtenir l'URL que l'utilisateur demande sur leur navigateur et de l'afficher dans le navigateur qui agit comme un proxy. Voici le code à ce jour. Je suis totalement bloqué .. de l'aide est très appréciée ![]() Code:
#!/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);
|
![]() |
| Bookmarks |
| Thread Tools | Recherche sur ce Thread |
| Modes d'affichage | Rate this thread |
|
|