наши услуги

спецпредложения

Главная » БЛОГ » Программирование » Сокеты в PERL на примере протокола HTTP

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

Сокеты в 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");
}
автор скрипта: Виталий Туровец http://corebug.net
продажа серверов бу
FREEhost.com.ua - качественный хостинг и регистрация доменов во всех зонах
Украинский хостинг - UNIX хостинг & ASP хостинг

Write a comment

  • Required fields are marked with *.

If you have trouble reading the code, click on the code itself to generate a new random code.
 
corebug
Posts: 1
Comment
Copyright
Reply #1 on : Пнд Июнь 06, 2011, 18:38:27
Это ж мой скриптец, елки-палки))

да твой. перетянул со старого блога.
Last Edit: Июнь 06, 2011, 18:46:24 by *