![]() |
Hallo und herzlich Willkommen aus den Vereinigten Staaten, die UNIX-und Linux-Foren! Vielen Dank für Ihren Besuch und die Teilnahme an unserem Global Community.
|
|
Google unix.com
|
|||||||
| Foren | Registrieren | Forum-Regeln | Links | Alben | FAQ | Benutzerliste | Kalender | Suche | Die heutige Beiträge | Alle Foren als gelesen markieren |
| Shell Programmierung und Scripting Post Fragen zu ksh, csh, sh, bash, Perl, PHP, sed, awk und anderen Shell-Skripte und Shell-Scripting-Sprachen hier. |
Mehr UNIX-und Linux-Forum Themen Vielleicht finden Sie hilfreiche
|
||||
| Faden | Thread Starter | Forum | Antworten | Last Post |
| Proxy-Server auf Digital UNIX V4.0E? | alvoryx | UNIX for Dummies Questions & Answers | 0 | 10-25-2006 02:29 PM |
| wie man für die IP-Proxy-Server | ppass | Linux | 3 | 09-26-2005 08:46 AM |
| (perl) Microsoft SQL Server-Client für Solaris. cant find it ... | Optimus_P | Shell Programmierung und Scripting | 3 | 10-14-2002 11:13 AM |
| Unix-Server hinter MS-Proxy-Server | RSlegers | UNIX for Dummies Questions & Answers | 2 | 09-16-2002 10:08 PM |
| Routing über einen Proxy-Server | garry | IP-Networking | 2 | 01-30-2002 05:18 AM |
![]() |
|
|
LinkBack | Thread Tools | Suche diesen Thread | Rate Thread | Anzeige-Modi |
|
|
|
||||
|
Proxy-Server / Client in Perl
Ich habe liebäugelt mit einem Proxy-Client / Server-Anwendung, die hören auf dem Client-System auf Port 7070 sagen können. Browser-Proxy-Einstellungen konfiguriert ist für "localhost" Port "7070".
Wenn dieser Proxy-App wird ein Antrag auf eine URL sollte FETCH die URL und auf den Browser. Ich habe bereits die Zuhörer Teil des Skripts (es war einfach), aber wie kann ich dann anrufen und die URL, die der Benutzer wird auf Antrag ihres Browsers und zeigt sie an den Browser wie ein Proxy-Server. Hier ist der Code so weit. Ich bin völlig festgefahren .. jede Hilfe sehr zu schätzen ![]() 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);
|
![]() |
| Lesezeichen |
| Thread Tools | Suche diesen Thread |
| Anzeige-Modi | Rate this thread |
|
|