The UNIX and Linux Forums  


Go Back   В UNIX и Linux Форумы > Топ форумы > Shell программирование и сценарии
.
Google unix.com



Shell программирование и сценарии Почтовые вопросы о KSH, CSH, SH, BASH, Perl, PHP, SED, AWK и скрипты оболочки и оболочки скриптовых языков здесь.

Подробнее UNIX и Linux Темы форума можно найти полезные
Нить Резьба для начинающих Форум Ответы Последнее сообщение
Прокси-сервер в Digital UNIX V4.0E? alvoryx UNIX для чайников Вопросы И Ответы 0 10-25-2006 03:29 PM
Как получить IP для прокси-сервера ppass Linux 3 09-26-2005 09:46 AM
(Perl) Microsoft SQL Server клиент для Solaris. наклоняю найти ... Optimus_P Shell программирование и сценарии 3 10-14-2002 12:13 PM
Unix-сервер за прокси-сервер MS RSlegers UNIX для чайников Вопросы И Ответы 2 09-16-2002 11:08 PM
маршрутизация через прокси-сервер Гарри Сеть IP 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 Резьба Инструменты Искать в этом Thread Оценить Thread Режимы дисплея
Old 09-29-2008
Dabheeruz Dabheeruz is offline
Зарегистрированный пользователь
  
 

Регистрация: Sep 2008
Сообщений: 19
Прокси-сервер / клиент в Perl

Я toying с прокси-клиент / сервер, что приложение будет слушать на клиентской системы позволяет говорить порт 7070. Пользователь в браузере настройки прокси настроен на "локальный" порт "7070".
При этом прокси-приложение получает запрос на URL она должна получить URL и отображения ее в браузере.

Я уже сделал слушателя части скрипта (это было легко), но как я могу позвонить и получить URL, которые пользователь будет просить об их браузера и отображения ее в браузере, действующая как прокси-сервер.

Вот код до сих пор. Я абсолютно застряли .. любую помощь является весьма признателен


Код:
#!/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);

Old 10-09-2008
otheus's Avatar
otheus otheus is offline Forum Staff  
Модератор Ала режим
  
 

Регистрация: Февраль 2007
Место проведения: Инсбрук, Австрия
Сообщений: 1886
Apache есть встроенные в модуль проксирование. Есть ли особенности потому, что не будет работать для вас?
Closed Thread

Закладки

Резьба Инструменты Искать в этом Thread
Искать в этом Thread:

Расширенный поиск
Режимы дисплея Оценить эту ветку
Оценить эту ветку:

Отправка Правила
Вы не может Начать новую нитей
Вы не может Почтовые ответы
Вы не может Почтовые вложения
Вы не может Редактировать Ваши сообщения

BB код быть На
Смайлики являемся На
[IMG] код На
HTML-код Вне
Trackbacks являемся На
Pingbacks являемся На
Refbacks являемся На




Часовой пояс GMT -4. Текущее время 03:58 AM.


Powered By: Справка, Copyright © 2000 - 2006, Jelsoft Enterprises Limited. Язык Переводы на питание от .
vBCredits v1.4 Copyright © 2007 - 2008, PixelFX Studios
В UNIX и Linux форумы Содержание Copyright © 1993-2009. Все права Reserved.Ad управления по RedTyger

Содержание соответствующие URL-адреса в vBSEO 3.2.0