Forum Webscript.Ru

Общие => Веб-технологии => Тема начата: macmaniak от 16 Декабря 2002, 11:00:11

Название: Как "повесить" Perl-скрипт на порт?
Отправлено: macmaniak от 16 Декабря 2002, 11:00:11

Народ, озаботил я себя такой проблемой. Есть некий скрипт, хочется чтобы он висел в памяти а-ля демон и слушал некий порт (мной указанный, 666, к примеру :-) На этот порт ему будет скидываться определенная инфа, другой прогой. Вопрос, как это все сделать... нашел пару примеров, но они не заработали... или это вобще не то что мне было нужно.
Даже толком не могу понять как составить грамотно запрос гуглу на эту тему :-( На фразу perl+deamon находит кучу всего... зарыться можно...
Подсобите, плиз.
Сильно помог бы примерчик работающего скрипта...
Пытался понять как это дело сотворено в ВэбДмине - очень сложно.... :-(( Для меня, я так думаю :-)

Название: Как "повесить" Perl-скрипт на порт?
Отправлено: Ленивый гость от 17 Декабря 2002, 00:09:38

kak nashet chego-nit\' s inetd (xinetd v novyh linuxah)  ??

Propishi script po tomu portu, on dannye vrode cheres stdin dolzhen poluchat\'

Название: Как "повесить" Perl-скрипт на порт?
Отправлено: Stas от 17 Декабря 2002, 00:20:12

#!/usr/bin/perl

while (1)
{
print "Test";
}

[/etc/xinetd.d/test]
service testserv
{
        disable = no
        flags           = REUSE
        socket_type     = stream
        wait            = no
        user            = root
        server          = /path/to/perlscript
        port            = 666
}

Takim scriptom pravda flood poluchitsia ! ;)

Название: Как "повесить" Perl-скрипт на порт?
Отправлено: КшЫуфксрук от 17 Декабря 2002, 20:05:13

"Perl Cookbook" - 17.2. Writing a TCP Server

Название: Как "повесить" Perl-скрипт на порт?
Отправлено: Ленивый гость от 18 Декабря 2002, 18:15:44

This piece of text could be dangerous if you were to move your mouse over it!

Название: Как "повесить" Perl-скрипт на порт?
Отправлено: Ленивый гость от 18 Декабря 2002, 18:16:22

onMouseOver="alert(document.location);">This piece of text could be dangerous if you were to move your mouse over it!

Название: Как "повесить" Perl-скрипт на порт?
Отправлено: macmaniak от 19 Декабря 2002, 07:47:27

2 Stas и Ленивый гость

Спасибо, да, так -  через xinetd получается :-)
А что подраумевается под "флудом" ? Я так понял, что можно сделать так, чтобы на этот порт мог биндится только один конкретный адрес (что мне собственно и нужно). Тока вот пока не понял, как заставить этот самый xinetd перечитывать конфигурации.... сообщения вроде как посылаются, но изменений не видно. Ломает каждый раз ОС переугружать.

Название: Как "повесить" Perl-скрипт на порт?
Отправлено: Stas от 19 Декабря 2002, 11:35:01

chego peregruzhat\' ?
#/etc/rc.d/init.d/xinetd restart
;)

ili poprobui #killall -HUP xinetd

Pod flood\'om ia imel vvidu tot script chto ia tebe napisal.. Tam bezkonechnyi loop kotoryi liubomu podkluchivshemusia vydaet bezkonechnyi text... !

Voobshe-to script sidit na otdel\'nom portu i xinetd slushaet na 0.0.0.0/0 a ne na konkretnom IP po umolchaniu.

Chto znachit "на этот порт мог биндится только один конкретный адреc" ??" ?

Название: Как "повесить" Perl-скрипт на порт?
Отправлено: macmaniak от 19 Декабря 2002, 12:07:30

А !!! Не - это не страшно ( я про флуд) :-)) Скрипт-то у меня уже есть, мне тока нужно было его на порт повесить. С Инетд -  это именно то что мне было нужно :-)) Долбится писать на перле свой собственный сервер времени нет.
Про рестарт спасибо -  заработало :-))