Сокеты в Perl и PHP

Сокеты в Perl Сокеты являются «конечными пунктами» в процессе обмена данными. Одни типы сокетов обеспечивают надежный обмен данными, другие почти ничего не гарантируют, зато обеспечивают низкий расход системных ресурсов. Обмен данными через сокеты может осуществляться на одном компьютере или через Интернет.

Типы сокетов Рассмотрим два самых распространенных типа сокетов: потоковые и датаграммные. Потоковые сокеты обеспечивают двусторонние, последовательные и надежные коммуникации. Датаграммные сокеты не обеспечивают последовательную, надежную доставку, но они гарантируют, что в процессе чтения сохранятся границы сообщений.

Типы сокетов Сокеты делятся по областям: сокеты Интернета и сокеты UNIX. Имя сокета Интернета содержит две составляющие: хост (IP-адрес) и номер порта. В мире UNIX сокеты представляют собой файлы. Кроме области и типа с сокетом также ассоциируется определенный протокол. Протоколы не имеют особого значения для рядового программиста, поскольку для конкретного сочетания области и типа сокета редко используется более одного протокола.

Типы сокетов Области и типы обычно идентифицируются числовыми константами (которые возвращаются функциями, экспортируемыми модулями Socket и IO::Socket). Потоковые сокеты имеют тип SOCK_STREAM, а датаграммные – SOCK_DGRAM. Области Интернета соответствует константа PF_INET, а области UNIX – константа PF_UNIX.

Типы сокетов Имена протоколов (например, TCP или UDP) тоже соответствуют числам, используемым операционной системой. Встроенная функция getprotobyname возвращает номер по имени протокола. Если функциям сокетов передается 0, система выберет подходящий протокол по умолчанию.

Создание сокетов в Perl Perl содержит встроенные функции для создания сокетов и управления ими; они в основном дублируют свои прототипы на С. Хотя это удобно для получения низкоуровневого, прямого доступа к системе, большинство предпочитают работать с более удобными средствами. На помощь приходят классы IO::Socket::INET и IO::Socket::UNIX –они обеспечивают высокоуровневый интерфейс к низкоуровневым системным функциям.

Функции создание сокетов socket - создает сокет; bind – назначает ему локальное имя; connect – подключает локальный сокет к другому (возможно, удаленному); listen - готовит сокет к подключениям со стороны других сокетов; accept - последовательно принимает подключения; при обмене данными с потоковыми сокетами можно использовать как print и , так и syswrite и sysread; при обмене с датаграммными сокетами – send и recv.

Использование функций в Perl Типичный сервер вызывает socket, bind и listen, после чего в цикле вызывает accept в блокирующем режиме, ожидая входящих подключений. Типичный клиент вызывает socket и connect. Датаграммные клиенты ведут себя особым образом. Они не обязаны вызывать connect для передачи данных, поскольку могут указать место назначения в качестве аргумента send.

Написание сервера TCP Сервер ожидает подключения клиентов по сети к определенному порту. Связь осуществляется через Интернет.

Сервер TCP. Первый вариант. Use IO::Socket; $server-IO::Socket::INET- >new(LocalPOrt=>$server_port, Type=>SOCK_STREAM, Listen=>10 or SOMAXCONN … обработка ошибки while($client=$server->accept()){ # $client – новое подключение } close($server);

Сервер TCP. Второй вариант. Use Socket; # создать сокет Socket(SERVER,PF_INET, SOCK_STREAM,0); # Построить свой адрес сокета $my_addr=sockaddr_in($server_port, INADDR_ANY); bind(SERVER,$my_addr) …обработка ошибки # установить очередь для входящих соединений listen(SERVER,SOMAXCONN) … обработка ошибки # принимать и обрабатывать подключения while(accept(CLIENT,SERVER)){ # сделать что-то с CLIENT } close(SERVER)

Написание клиента TCP Подключение к сокету на удаленном компьютере. Связь осуществляется через Интернет.

Клиент TCP. Первый вариант. Use IO::Socket; $socket=IO::Socket::INET- >new(PeerAddr=>$remote_host, PeerPort=>$remote_port, Proto =>tcp, Type =>SOCK_STREAM) …обработка ошибки # сделать что-то с сокетом print $socket …; $answer= ; # отключиться после завершения close($socket);

Клиент TCP. Второй вариант. Use Socket; Socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname(tcp)); # построить адрес удаленного компьютера $internet_addr=inet_aton($remote_host); … обработка ошибки $paddr=sockaddr_in($remote_port, internet_addr); # подключиться connect(TO_SERVER, $paddr) … обработка ошибки # сделать что-то с сокетом print TO_SERVER …; #отключиться после завершения close(TO_SERVER);

Сокеты в PHP Язык PHP позволяет работать с сокетами. Посредством сокетов мы имеем возможность соединяться с серверами по протоколу TCP. Это означает, в частности, что сокет может быть использован, например, для формирования почтовых соединений на более низком уровне, чем позволяет функция mail(). С помощью сокетов на языке PHP можно написать HTTP прокси –сервер, который будет фильтровать и анализировать запросы каким угодно образом, а также скрывать клиентский IP, поскольку обращение к HTTP-серверам (Web-серверам) будет осуществляться от имени прокси-сервера с его IP, за которым не будет виден конечный клиентский адрес.

Функции PHP для работы с сокетами Создание сокета: $sock = socket_create (AF_INET, SOCK_STREAM, 0) Ошибки создания: socket_strerror ($sock) Назначение сокету локального имени $address = ' '; $port =4; $ret = socket_bind ($sock, $address, $port) Ошибки реализации socket_strerror ($ret)

Функции PHP для работы с сокетами Подготовка сокета к подключениям со стороны других сокетов, $ret = socket_listen ($sock, 25) Последовательно принимает подключения. $msgsock = socket_accept($sock) Печатаем через сокет socket_write($msgsock, $buf, strlen($buf)); Пишем в сокет $buf = socket_read ($msgsock, 2048)

Файл Server.php

Файл Server.php if (($sock = socket_create (AF_INET, SOCK_STREAM, 0)) < 0) { echo Error: ". socket_strerror ($sock). "\n"; } if ( ($ret = socket_bind ($sock, $address, $port)) < 0) { echo Error: ". socket_strerror ($ret). "\n"; } if ( ($ret = socket_listen ($sock, 25)) < 0) { echo Error: ". socket_strerror ($ret). "\n"; } if ($msgsock = socket_accept($sock)) < 0) { echo Error: ". socket_strerror ($msgsock). "\n"; }

Файл Server.php $buf="Testing string"; echo socket_write($msgsock, $buf, strlen($buf)); while ( ($buf1 = socket_read ($msgsock, 2048))!=FALSE ){ echo $buf1;?>

Файл Client.php !/usr/local/bin/php

Файл Client.php if ($result < 0) { echo Error". socket_strerror($result). "\n"; } else { while ( ($buf = socket_read ($soc, 2048))!=FALSE ){ echo $buf;?>

Запуск сервера

Обмен данными между сервером и клиентом YES Testing string Test Client TCP/IP Connection Testing string