Perl и сокеты. Часть 1

#!/usr/bin/perluse strict;# подключаем модуль Socketuse Socket;# далее мы вводим константу, содержащую# адрес сервера, к которому мы должны подключиться.# но, чтобы корректно сформировать адрес сокета, # мы должны ввести IP-адрес требуемого хоста. т.е. # если я хочу подключиться к s2.daytime.net.ru,# то мне придется написать: # use constant DEF_ADDR => 217.20.189.83# (это ip-адрес хоста s1.daytime.net.ru). use constant DEF_ADDR => 212.9.235.98;# далее вводим константу PORT, которая будет содержать # номер порта, к которому мы будем подключаться. # в данном случае используется протокол TCP, имеющий # стандартный номер порта — 13.use constant PORT => 13;# чтобы создать соединение с сокетом, нужно определить # протокол, с которым будем работать. к сожалению, # мы не можем написать просто TCP, программа нас # не поймет, для нее это просто очередной набор # символов. по некоторым непонятным мне причинам # каждый протокол имеет свой фиксированный номер. # у протокола TCP этот номер равен 6. данное число # говорит программе при соединении с сокетом, что мы хотим# использовать именно TCP, а не UDP или какой-либо еще.use constant TCP => 6;# здесь предоставляется возможность пользователю ввести # адрес того хоста, к которому он хочет подключиться. # если ничего не введено, программа будет использовать # стандартный адрес.my $addr = shift  DEF_ADDR;# как я уже упоминал, адрес сокета включает в себя # номер порта и ip-адрес хоста, к которому мы собираемся # подключиться. но, по сложившимся обстоятельствам,# для связи используются ip-адреса в двоичном виде, # так легче машинам, однако, представляете, каково # читать такое человеку? естественно легче воспринимать # что-нибудь вроде того же 127.0.0.1. чтобы перевести # привычный нам ip в понятный программе двоичный вид, мы# используем функцию inet_aton(arg), # где arg — «человеческий» ip-адрес. # (кстати, чтобы перевести двичный ip в человеческий можно # использовать функцию inet_ntoa,# my $ip = inet_ntoa($packed_ip), # где $packed_ip — двоичный адрес).my $packed_addr = inet_aton($addr);# теперь нужно сформировать адрес сокета, # что делается с помощью функции # my $socket_addr = sockaddr_in($port, $packed_addr), # которая «объединяет» номер порта($port) # и двоичный ip-адрес($packed_addr) в формат,# понятный для сокета.# кстати, чтобы распаковать $socket_addr обратно # в номер порта и двоичный ip-адрес, можно использовать # эту же функцию, только в списковом контексте: # my ($port, $packed_addr) = sockaddr_in($socket_addr).my $socket_addr = sockaddr_in(PORT, $packed_addr);# далее требуется создать сокет с помощью функции# socket(DESCR, SOCK_DOMEN, SOCK_TYPE, PROTOCOL), # где DESCR — дескриптор, SOCK_DOMEN — домен сокета, # SOCK_TYPE — тип сокета, # PROTOCOL — номер используемого протокола.socket(SOCK, AF_INET, SOCK_STREAM, TCP) or   die "не удалось создать к сокет =(";# после того, как мы создали сокет, можно # устанавливать соединение с удаленным хостом.# для этого используем функцию # connect(DESCR, $socket_addr),# где DESCR — дескриптор созданного сокета, # а $socket_addr — созданный адрес сокета.connect(SOCK, $socket_addr) or    die "не могу подключиться к сокету =(";# запишем полученные данные в переменную # и закроем соединениеmy $date = <SOCK>;close SOCK;# серверы daytime возвращают время по Гринвичуprint "$date\n";

#!/usr/bin/perluse strict;use Socket;# имя сервераuse constant DEF_ADDR => s2.daytime.net.ru;my $packed_addr = gethostbyname(shift  DEF_ADDR) or   die "не могу найти данный хост =(";my $protocol = getprotobyname(tcp);my $port = getservbyname(daytime, tcp) or    die "не могу обнаружить порт =(";my $socket_addr = sockaddr_in($port, $packed_addr);socket(SOCK, AF_INET, SOCK_STREAM, $protocol) or    die "не могу создать сокет =(";connect(SOCK, $socket_addr) or    die "не могу соединится с сокетом =(";my $date = <SOCK>;close SOCK;print "$date\n";