![]() |
Hello and Welcome-tól az Egyesült Államokat, hogy az UNIX és Linux Forums? Köszönjük, hogy meglátogatta és csatlakozik Globális Közösség.
|
|
google unix.com
|
|||||||
| Fórumok | Regisztráció | Fórum Szabályok | Linkek | Albumok | GYIK | Tagok listája | Naptár | Keres | Mai hozzászólások | Megjelöl Fórumok Olvas |
| Shell programozás és Scripting Post kérdések KSH, CSH, SH, Bash, Perl, PHP, SED, AWK ÉS EGYÉB shell szkriptek és shell script nyelvek itt. |
Több, UNIX és Linux fórum témák Ön által talált Hasznos
|
||||
| Szál | Thread Starter | Fórum | Válaszok | Utolsó hozzászólás |
| Proxyszerver a Digital UNIX V4.0E? | alvoryx | A UNIX a dummies Kérdések és válaszok | 0 | 10-25-2006 03:29 PM |
| hogyan lehet eljutni az IP proxyszerver | ppass | Linux | 3 | 09-26-2005 09:46 AM |
| (perl) Microsoft SQL Server ügyfél a Solaris. vidám talál ez ... | Optimus_P | Shell programozás és Scripting | 3 | 10-14-2002 12:13 PM |
| unix szerver mögött MS proxyszerver | RSlegers | A UNIX a dummies Kérdések és válaszok | 2 | 09-16-2002 11:08 PM |
| routing egy proxyszerver | Garry | IP Networking | 2 | 01-30-2002 05:18 AM |
![]() |
|
|
LinkBack | Téma eszközök | Keresés a téma | Rate Thread | Megjelenítési módok |
|
|
|
||||
|
Proxy szerver / kliens a Perl
Már otthagyott egy proxy kliens-szerver app, hogy meghallgatja az Ügyfél rendszer lehetővé teszi, hogy mondjuk kikötő 7.070. Felhasználó böngészője proxy van beállítva a "localhost" port "7.070".
Ha ez a proxy app irányuló kérelmet kap egy URL-t kell letölteni a URL-t és megjeleníti azt a böngészőt. Én már elkészült a hallgató része a forgatókönyvet (nem volt nehéz), de hogyan tudom majd a hívás és az URL-t kap, hogy a felhasználó kérésére, hogy a böngésző és a kijelzőn azt a böngészőt úgy viselkedik, mint egy proxy. Itt a kód eddig. Én teljesen megragadt .. akármi segít nagyra értékelik ![]() Kód:
#!/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);
|
![]() |
| Könyvjelzõk |
| Téma eszközök | Keresés a téma |
| Megjelenítési módok | Rate this thread |
|
|