![]() |
|
|
google unix.com
|
|||||||
| Forum | Registrati | Regole Forum | Collegamenti | Album | FAQ | Members List | Calendario | Ricerca | Today's Posts | Mark Forums Read |
| Shell scripting e di programmazione Pubblica domande su KSH, CSH, SH, Bash, Perl, PHP, sed, awk e da altri script di shell e linguaggi di scripting shell qui. |
Più di UNIX e Linux Forum Argomenti potreste trovare utili
|
||||
| Filo | Thread Starter | Forum | Risposte | Ultimo Post |
| Proxy server Digital UNIX V4.0E? | alvoryx | UNIX for Dummies Domande & Risposte | 0 | 10-25-2006 03:29 PM |
| come arrivare IP per il server proxy | ppass | Linux | 3 | 09-26-2005 09:46 AM |
| (perl) per Microsoft SQL Server per client di Solaris. cant trovare ... | Optimus_P | Shell scripting e di programmazione | 3 | 10-14-2002 12:13 PM |
| unix server MS dietro un server proxy | RSlegers | UNIX for Dummies Domande & Risposte | 2 | 09-16-2002 11:08 PM |
| routing attraverso un server proxy | Garry | Reti IP | 2 | 01-30-2002 05:18 AM |
![]() |
|
|
LinkBack | Thread Tools | Cerca in questo Thread | Rate Thread | Modalità di visualizzazione |
|
|
|
||||
|
Proxy client / server in Perl
Sono stato toying con un Proxy client / server app che ascoltare sul sistema client sulla porta 7070 diciamo. L'utente del browser del proxy è configurato per "localhost" porta "7070". Quando questo proxy app ottiene una richiesta per un URL che dovrebbe recuperare l'url e la visualizzazione sul browser. Ho già fatto l'ascoltatore porzione dello script (che è stato facile), ma come posso chiamare e quindi ottenere l'URL che l'utente sarà richiesta sul proprio browser e visualizzare al browser che agisce come un proxy. Qui è il codice finora. Io sono totalmente bloccato .. ogni aiuto è molto apprezzato ![]() Codice:
#!/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);
|
![]() |
| Segnalibri |
| Thread Tools | Cerca in questo Thread |
| Modalità di visualizzazione | Vota questo thread |
|
|