The UNIX and Linux Forums  
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.

Go Back   A UNIX és Linux Forums > Top Fórumok > Shell programozás és Scripting
.
google unix.com



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

Closed Thread
English Japanese Spanish French German Portuguese Italian Dutch Swedish Russian Norwegian Hungarian Hebrew Danish Bulgarian Greek Powered by Powered by Google
 
LinkBack Téma eszközök Keresés a téma Rate Thread Megjelenítési módok
  #1 (permalink)  
Old 09-29-2008
Dabheeruz Dabheeruz is offline
Regisztrált felhasználó
  
 

Join Date: Sep 2008
Hozzászólások: 19
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);
  #2 (permalink)  
Old 10-09-2008
otheus's Avatar
otheus otheus is offline Forum Staff  
Moderátor ala Mode
  
 

Join Date: Feb 2007
Helyszín: Innsbruck, Ausztria
Hozzászólások: 1.886
Apache egy beépített proxy modullal. Van egy bizonyos okból kifolyólag, hogy nem fog működni az Ön számára?
Closed Thread

Könyvjelzõk

Téma eszközök Keresés a téma
Keresés a téma:

Részletes keresés
Megjelenítési módok Rate this thread
Rate this thread:

Posting szabályzat
Ön nem post new threads
Ön nem post válaszok
Ön nem post Csatolmányok
Ön nem szerkeszteni az üzeneteidet

BB kód van Be
Smilies vannak Be
[IMG] kód Be
HTML kód Ki
Trackbacks vannak Be
Pingbacks vannak Be
Refbacks vannak Be




Minden idő GMT -4. Az idő most 01:28 PM.


Powered by: vBulletin, Copyright © 2000 - 2006, Jelsoft Enterprises Limited. Nyelvre lefordítva Powered by .
vBCredits v1.4 Copyright © 2007 - 2008, PixelFX Studios
A UNIX és Linux Fórum Tartalom Copyright © 1993-2009. Minden jog Reserved.Ad menedzsment RedTyger

Content Relevant URLs by vBSEO 3.2.0