![]() |
Hallo en welkom van de Verenigde Staten aan de UNIX en Linux Forum! Bedankt voor uw bezoek en Deelnemen aan onze wereldwijde gemeenschap.
|
|
google unix.com
|
|||||||
| Forums | Registreer | Forum Regels | Links | Albums | Veelgestelde vragen | Ledenlijst | Kalender | Zoeken | Today's Posts | Markeer forums als gelezen |
| Programmeren en Shell Scripting Post vragen over KSH, CSH, SH, Bash, Perl, PHP, sed, awk en andere shell scripts en shell scripting talen hier. |
Meer UNIX en Linux Forum Onderwerpen Misschien vindt u Helpful
|
||||
| Draad | Thread Starter | Forum | Antwoorden | Last Post |
| Proxy-server op Digital UNIX V4.0E? | alvoryx | UNIX voor Dummies Questions & Answers | 0 | 10-25-2006 02:29 PM |
| hoe je IP voor proxy-server | ppass | Linux | 3 | 09-26-2005 08:46 |
| (perl) Microsoft SQL Server-client voor Solaris. cant vinden ... | Optimus_P | Programmeren en Shell Scripting | 3 | 10-14-2002 11:13 |
| Unix-server achter MS proxyserver | RSlegers | UNIX voor Dummies Questions & Answers | 2 | 09-16-2002 10:08 PM |
| routering via een proxy-server | Garry | IP Networking | 2 | 01-30-2002 05:18 |
|
|
LinkBack | Thread Tools | Zoeken in deze Thread | Rate Thread | Display Modes |
|
||||
|
Proxy server / client in Perl
Ik ben al spelen met een Proxy-client / server app die zal luisteren op het CLIENT systeem op laten we zeggen poort 7070. Gebruiker browser proxy-instellingen is geconfigureerd voor "localhost" port "7070".
Wanneer deze volmacht app krijgt een verzoek om een URL moet FETCH de URL en de weergave van de browser. Ik heb al maakte de luisteraar gedeelte van het script (het gemakkelijk was), maar hoe kan ik dan bellen en je de URL die de gebruiker op verzoek van de browser weer te geven en om de browser te handelen als een proxy. Hier is de code tot nu toe. Ik ben helemaal vastgelopen .. alle hulp zeer gewaardeerd ![]() 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);
|
| Bladwijzers |
| Thread Tools | Zoeken in deze Thread |
| Display Modes | Beoordeel deze draad |
|
|