![]() |
|
|
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 |
![]() |
|
|
LinkBack | Резьба Инструменты | Искать в этом Thread | Оценить Thread | Режимы дисплея |
|
|
|
||||
|
Прокси-сервер / клиент в 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);
|
![]() |
| Закладки |
| Резьба Инструменты | Искать в этом Thread |
| Режимы дисплея | Оценить эту ветку |
|
|