Коментарі () Автор:

Сокеты в PERL на примере протокола HTTP

Элементарный скрипт, который открывает сокет, передает в него данные, считывает ответ и выводит результат на экран.

#!/usr/local/bin/perl -w
use Socket;      #Библиотека для работы с сокетами
$host="example.com";  # Адрес (DNS или IP) сервера http
$port=80;              #  Порт сервера http
$proto=getprotobyname('tcp'); # Преобразовываем имя протокола в число
$line_to_send="GET /index.html  \n\n"; # Строка-запрос серверу

$iaddr = inet_aton($host);    # Сделаем адрес хоста понятным функции connect()
$paddr = sockaddr_in($port, $iaddr);

socket(SOCK,PF_INET,SOCK_STREAM,$proto); # Обьявляем сокет
connect(SOCK, $paddr);    # Открываем сокет
send (SOCK,$line_to_send,0); # Шлем строку
@data=<sock>;  # Считываем ответ
close (SOCK);   # Закрываем сокет
foreach $line(@data){      #Выводим ответ на экран
 print ("$line\n");
}

Украинский хостинг - UNIX хостинг & ASP хостинг

corebug 06 июн 2011 в 18:38 #

Copyright

Это ж мой скриптец, елки-палки))

да твой. перетянул со старого блога.

Добавить комментарий

Код:

Отправить