форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Снятие статистики"
Сообщение от xeon on 30-Июл-04, 22:43  (MSK)
Доброго времени суток. Может топик не совсем по теме, но очень нужен исходник программы на Perl`е, которая периодически телнетилась бы к определённому порту машины, снимала оттуда данные и записывала в файл. Буду рад любой помощи.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Снятие статистики"
Сообщение от Wizard (??) on 04-Авг-04, 00:00  (MSK)
может так: #!/usr/bin/perl use IO::Socket; use strict; my $host = $ROUT{ip};       my $port = '31337';               print "Connecting to: $host:$port\n";               my $remote = IO::Socket::INET->new ( Proto => "tcp",                                                    PeerAddr => $host,                                                          PeerPort => $port ) || die "can`t connect";           open(FILE,">>stat-file"); print $remote 'GIVE ME STAT'."\n"; while(my $line = <$remote> ) { print FILE $line; } переодичность - или по крону или заключить в while (true) { .... sleep 30; }
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.