RECV + SOket

[DrumSe]

Не подскажите как пользоваться функцией recv??? Она мне нужна для получения сообщений от сервера???
Заранее благодарен

[NeoNox]

После создания сокета ты можешь получить сообщение созданное клиентом через recv() метод.
$Socket->recv($text,128);
print "Получено сообщение: $text \\n";
первый аргумент - собственно ответ а второй - количество байт которые сервер может принять.

[DrumSe]

А если второй аргумент опустить?!

[NeoNox]

DrumSe знаеш анегдот про попугая и веревку?
а если в команде print сделать 3 ошибки?!

[DrumSe]

ыыыыыыыыыыыыыыыы
понял...

[DrumSe]

Проблемка маленькая оталась....
Ввожу команду
help
Пишет
Comand \' \' not understood;
ENTER
и весь хелп выводит?!

[DrumSe]

Кто-нибудь знает?!

[NeoNox]

DrumSe telepatov.net
Где ты ее вводишь?

[DrumSe]

запуская скрипт и там ввожу...

[NeoNox]

Капец... Мне можно начинать угадывать что за скрипт ты запускаешь?

[commander]

NeoNox
Пора записаться на тренининг телепатических способностей...

[DrumSe]

#!/usr/bin/perl -w
use Socket;
$str = @ARGV;
if ($str != "2")
{
print "usage: inet.pl adress port\\n";
}
$host=$ARGV[0];
$port=$ARGV[1];


socket($server, PF_INET, SOCK_STREAM, getprotobyname(\'tcp\'));
$inet_addr = inet_aton($host);
$paddr = sockaddr_in($port, $inet_addr);
connect($server,$paddr) || die "Error while connecting:$!\\n";
select((select($server), $| = 1)[0]);
print "Connection established, maybe\\n";
while (1)
{
   print "Enter a command:\\n";
   $cmd = ;
   chomp $cmd;
   print $server "$cmd\\n";
   recv($server,$text,500,0);
   print $text;
   
   
}
close ($server);

[NeoNox]

DrumSe а теперь, пожалуйста, прокомментируй каждую строчку этого скрипта.

[DrumSe]

#!/usr/bin/perl -w
use Socket;
$str = @ARGV;
if ($str != "2") #если аргументы полученные из командной строки не равны 2 то пишем ошибку
{
print "usage: inet.pl adress port\\n";
}
$host=$ARGV[0];
$port=$ARGV[1];


socket($server, PF_INET, SOCK_STREAM, getprotobyname(\'tcp\')); #СОздаем сокет
$inet_addr = inet_aton($host);
$paddr = sockaddr_in($port, $inet_addr);
connect($server,$paddr) || die "Error while connecting:$!\\n";
select((select($server), $| = 1)[0]); # вкл. буферезацию
print "Connection established, maybe\\n";
# А теперь вводим команды:
while (1)
{
print "Enter a command:\\n";
$cmd = ;
chomp $cmd;
print $server "$cmd\\n";
recv($server,$text,500,0);
print $text;


}
close ($server);#закрываем сокет

[NeoNox]

DrumSe:
select((select($server), $| = 1)[0]); # вкл. буферезацию

выкл. а не вкл.

и что дальше ты делаешь?

запусти как
./inet.pl forums.webscript.ru 80
и введи команду:
GET / HTTP/1.0