Сообщения

271

Perl / Проблема с ф-цией recv (Perl). Как завершить скрипт?

« : 29 Января 2002, 16:22:26 »

Привет всем.
В моём перл-скрипте я отсылаю udp-пакет, а затем ожидаю ответа. Когда ответ приходит, отсылаю соответствующию информацию пользователю в броузер. Но проблема в том, что при вызове ф-ции recv, скрипт ждёт ответа до тех пор, пока он не прийдёт. И если он не приходит, скрипт висит. Получается каждый раз после такой ситуации остаётся незавершённый процесс? Это ведь очень плохо.
Вопросы такие. Можно ли задать какой-нибудь тайм-аут в ф-ции recv и второй, если на первый нет ответа, можно ли заставить скрипт завершиться самому с выполнением определённой ф-ции по  истечении какого-нибудь времени?
Большое спасибо.

272

Perl / Записать в файл символ 0x0A

« : 22 Января 2002, 15:15:22 »

Спасибо, всё работает. С FAR\'ом просто перемудрил.

273

Perl / Записать в файл символ 0x0A

« : 22 Января 2002, 14:57:54 »

vladsu

Под виндами?

Да, по виндами.
Приведу код:

Код: [Выделить]


open(F,">aaa");
binmode(F);            # без этого тоже не работает
print F packData(1,"12345678");
close(F);

sub packData
{  return sprintf("%c%c%s",$_[0],length($_[1])+2,$_[1]);
}


Из дампа видно вместо второго байта 0x0A - два байта 0x0D 0x0A

274

Perl / Записать в файл символ 0x0A

« : 22 Января 2002, 14:08:34 »

Привет всем.
Подскажите пожалуйста, как можно строку, в которой символ 0x0A содержится, в файл записать. Перл шутит со мной и в файле я вижу 0x0D 0x0A вместо 0x0A.
Большое спасибо.

275

Perl / Помогите с функцией recv

« : 22 Января 2002, 12:23:00 »

Привет всем!
Подскажите пожалуйста, как можно сделать так, чтобы программа не зависала, когда вызывается ф-ция recv, а ответ не приходит. Есть ли возможность назначить какой-нибудь тайм-аут, например?
Большое спасибо.

276

Perl / Как послать IP пакет?

« : 21 Января 2002, 18:17:01 »

сформулируем вопрос NeoNox иначе: тебе надо что-то передать удаленному серверу и получить какой-нибудь ответ?
Или тебе нужно имеено работать с IP пакетами?
Если что-то передать/получить, уточни что хочешь получить...

Сформулирую свой вопрос иначе. Извините, я некомпетентен в этом вопросе, поэтому если начинаю говорить какую-нибудь чушь - остановите меня пожалуйста, а ещё лучше исправьте.
Мне нужно сформировать IP-пакет. Но ведь может содержать информацию? Так вот я бы хотел написать что-нибудь внутри пакета, чтобы сервер проанализировал это и отправил ответ.
Возможно ли такое?

277

Perl / Как послать IP пакет?

« : 21 Января 2002, 17:26:51 »

Или я не понял, или одно из двух...
При чем здесь пакет?
Тебе нужно из формы отправить скрипту параметры и получить, в зависимости от них, какой нибудь результат?

Нет, речь идет совсем не о CGI.  
Есть один модуль - NET::RawIP, но он помоему может только потвевожить сервер, но не передать ему информацию и получить ответ (может я и ошибаюсь).
Может быть как-то через сокеты можно реалировать?

278

Perl / Как послать IP пакет?

« : 21 Января 2002, 16:54:24 »

Првет всем!
Подскажите пожалуйста, как можно отправить IP-пакет на Перле, в котором содержится несколько параметром, например UserName, Password и т.д. и получить какой-нибудь ответ.
Заранее большое спасибо.