Основной цикл

8-13 Так же, как в udpclient, читаем строки из стандартного ввода, отправляем их удаленному хосту, читаем от него ответ и записываем его на стандартный вывод.

Хотя знакомые сетевые функции иногда принимают несколько иные аргументы и могут возвращать результат непривычным образом, но, в общем, программа в листинге 3.36 кажется знакомой и понятной. Тот, кто знаком с основами сетевого программирования и хотя бы чуть-чуть разбирается в Perl, может добиться высокой производительности.

Для сравнения в листинге 3.37 представлен TCP-сервер эхо-контроля. Вы можете соединиться с этим сервером с помощью программы telnet или любого другого TCP-приложения, способного вести себя как клиент эхо-сервера.

Здесь также видна знакомая последовательность обращений к API сокетов и, даже не зная языка Perl, можно проследить за ходом выполнения программы. Следует отметить две особенности, присущие Perl:

вызов accept на строке 11 возвращает TRUE, если все хорошо, а новый со-кет возвращается во втором параметре (S1). В результате естественно выглядит цикл for, в котором принимаются соединения;

поскольку recv возвращает адрес отправителя (или специальное значение undef), а не число прочитанных байт, получая длину строки $line (строка 16), следует явно проверять, не пришел ли признак конца файла. Оператор last выполняет те же действия, что break в языке С.

Листинг 3.37. Версия эхо-сервера на языке Perl

pechos

1 #! /usr/bin/perl5

2 use Socket;

3 $port = shift;

4 $port = getservbyname( $port, 'tcp' ) if $port =~ /\D/;

5 die "Invalid port" unless $port;

6 socket( S, PF_INET, SOCK_STREAM, 0 ) die "socket: $!";

7 setsockopt( S,SOL_SOCKET, SO_REUSEADDR, pack( '1' , 1 ) )

8 die "setsockopt: $!";

9 bindf S, sockaddr_in( $port, INADDR_ANY ) ) die "bind: $!"

10 listen ( S, SOMAXCONN );

11 for( ; accept( SI, S ); close( SI ) )

12 {

13 while ( TRUE )

14 {

15 definedf recv( SI, $line, 120, 0 ) ) die "recv: $!"

TCL/Expect;

Python;

JavaScript;

Visual Basic (для Windows).