Работа с сокетами,мать их))

[Велемир]

Вот самый обычный сокед:

#!usr/bin/perl

use strict; use Socket;
use constant DEFAULT_ADDR => '127.0.0.1';
use constant PORT => 21;
use constant IPPROTO_TCP => 6;

my $my_addr = shift || DEFAULT_ADDR;
my $upak_addr = inet_aton($my_addr);
my $dest = sockaddr_in(PORT,$upak_addr);
socket(SOCK,PF_INET,SOCK_STREAM,IPPROTO_TCP) or
die "Can`t open this socket!";
connect(SOCK,$dest);
print <SOCK>;

Если соединение успешно,то просто выводит содержимое дескриптора сокета)).Но вот что можно запросить с помощью сокетов(какую информацию),и каким функциями пользоваться,кроме read().Или может есть у кого-то примеры работы на перле с сокетами ?

[biophreak]

Запросить - хм...имхо доволоьно странная постановка вопроса...запросить можно толькто то, что может отдать сервак :))
Кроме read() - sysread()
примеры - http://phreak.nkoort.ru/source - пример работы с асечным серваком.

[Jes]

пример , тупо читает страницу
#!"C:\xampp\perl\bin\perl.exe"

use Socket;

$port="80";


socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));


$sockaddr_in = 'S n a4 x8';


$in_addr = (gethostbyname("localhost"))[4];

$server_addr = pack( $sockaddr_in, AF_INET, $port, $in_addr );

connect(SOCK, $server_addr);
send (SOCK, "GET / HTTP/1.0\n\n", 0);

@data=<SOCK>;

close(SOCK);


print @data;
exit(0);

[Велемир]

Круто)))).Спасибо вам ребятки ^___________^.А что означают ваот эти две строчки:

$in_addr = (gethostbyname("localhost"))[4];

$server_addr = pack( $sockaddr_in, AF_INET, $port, $in_addr );

Остальное вроде понятно=).А хотя... exit(0) это означает немедленный выход ?Смахивает на sleep() )

ЗЫ: Только у меня страницу не выводит...локалхост.А по идее должен разве?)


оО,ты забыл в скрипте поставить директиву my,тобишь глобальные переменные интерпретатор потребывал =_=,и вот насчёт директивы use strict не знаю,мне помогла)).Терь всё работает,ещё раз спасибо )))))

[Jes]

$in_addr = (gethostbyname("localhost"))[4];
узнаем айпи получателя по домену (вместо localhost может быть например google.com) , ай пи будет 4м параметром , возвращенным функцией gethostbyname ,который мы и поместим в переменную $in_addr

$sockaddr_in = 'S n a4 x8';
Задаем шаблон для упаковки
$server_addr = pack( $sockaddr_in, AF_INET, $port, $in_addr );
и упаковываем все наши данные согласно шаблону в двоичную структуру , которая необходима функции connect для установки соединения...

надеюсь понятно обьяснил :)

ps: а exit(0) обычный выход из программы

added:
замени localhost на google.com
а в send поправь на
send (SOCK, "GET / HTTP/1.0\nhost:google.com\n\n", 0);
и увидишь результат

[Велемир]

Вроде всё понял.Думаю вот,че с этими сокетами делать )))