Автор Тема: Как "повесить" Perl-скрипт на порт?  (Прочитано 5291 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн macmaniak

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 3
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Как "повесить" Perl-скрипт на порт?
« : 16 Декабря 2002, 11:00:11 »
Народ, озаботил я себя такой проблемой. Есть некий скрипт, хочется чтобы он висел в памяти а-ля демон и слушал некий порт (мной указанный, 666, к примеру :-) На этот порт ему будет скидываться определенная инфа, другой прогой. Вопрос, как это все сделать... нашел пару примеров, но они не заработали... или это вобще не то что мне было нужно.
Даже толком не могу понять как составить грамотно запрос гуглу на эту тему :-( На фразу perl+deamon находит кучу всего... зарыться можно...
Подсобите, плиз.
Сильно помог бы примерчик работающего скрипта...
Пытался понять как это дело сотворено в ВэбДмине - очень сложно.... :-(( Для меня, я так думаю :-)

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

  • Гость
Как "повесить" Perl-скрипт на порт?
« Ответ #1 : 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\'

Оффлайн Stas

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 304
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.isfuture.com
Как "повесить" Perl-скрипт на порт?
« Ответ #2 : 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 ! ;)

Оффлайн КшЫуфксрук

  • Завсегдатай
  • Пользователь
  • **
  • Сообщений: 99
  • +0/-0
  • 0
    • Просмотр профиля
    • http://risearch.org/
Как "повесить" Perl-скрипт на порт?
« Ответ #3 : 17 Декабря 2002, 20:05:13 »
"Perl Cookbook" - 17.2. Writing a TCP Server

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

  • Гость
Как "повесить" Perl-скрипт на порт?
« Ответ #4 : 18 Декабря 2002, 18:15:44 »
This piece of text could be dangerous if you were to move your mouse over it!

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

  • Гость
Как "повесить" Perl-скрипт на порт?
« Ответ #5 : 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!

Оффлайн macmaniak

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 3
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Как "повесить" Perl-скрипт на порт?
« Ответ #6 : 19 Декабря 2002, 07:47:27 »
2 Stas и Ленивый гость

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

Оффлайн Stas

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 304
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.isfuture.com
Как "повесить" Perl-скрипт на порт?
« Ответ #7 : 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" ??" ?

Оффлайн macmaniak

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 3
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Как "повесить" Perl-скрипт на порт?
« Ответ #8 : 19 Декабря 2002, 12:07:30 »
А !!! Не - это не страшно ( я про флуд) :-)) Скрипт-то у меня уже есть, мне тока нужно было его на порт повесить. С Инетд -  это именно то что мне было нужно :-)) Долбится писать на перле свой собственный сервер времени нет.
Про рестарт спасибо -  заработало :-))

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28