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

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

"tail -f  на STDIN перлового скрипта."

Сообщение от bingo2 on 18-Апр-07, 21:26

привет. есть программа, которая как не странно пишет лог :) есть перловый скрипт, который его парсит. задача: получать последние строки из лога по ssh login@server "tail -f"  и передавать на STDIN перловому скрипту. что посоветуете? через простой пайп не работает, sleep очень не хочется ставить. пока поставил перенаправление в файл, а уже оттуда беру, но это не вариант =(

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

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

[Сортировка по времени, UBB]

1. "tail -f  на STDIN перлового скрипта."

Сообщение от bill (??) on 18-Апр-07, 21:59

>привет. >есть программа, которая как не странно пишет лог :) >есть перловый скрипт, который его парсит. > >задача: >получать последние строки из лога по >ssh login@server "tail -f"  и передавать на STDIN перловому скрипту. > >что посоветуете? через простой пайп не работает, sleep очень не хочется ставить. > >пока поставил перенаправление в файл, а уже оттуда беру, но это не >вариант =( open (TAIL,"ssh login\@server tail -f |"); while (<TAIL>) { ... или так? while(<>) { ... ssh login@server tail -f | ./prog.pl

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	2. "tail -f  на STDIN перлового скрипта."
	Сообщение от bingo2 on 19-Апр-07, 12:13
	>>привет. >>есть программа, которая как не странно пишет лог :) >>есть перловый скрипт, который его парсит. >> >>задача: >>получать последние строки из лога по >>ssh login@server "tail -f"  и передавать на STDIN перловому скрипту. >> >>что посоветуете? через простой пайп не работает, sleep очень не хочется ставить. >> >>пока поставил перенаправление в файл, а уже оттуда беру, но это не >>вариант =( > > >open (TAIL,"ssh login\@server tail -f |"); >while (<TAIL>) { >... > >или так? >while(<>) { >... > >ssh login@server tail -f | ./prog.pl не работает не так, не так =( win/cygwin
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

3. "tail -f  на STDIN перлового скрипта."

Сообщение от chip (ok) on 19-Апр-07, 16:07

>привет. >есть программа, которая как не странно пишет лог :) >есть перловый скрипт, который его парсит. > >задача: >получать последние строки из лога по >ssh login@server "tail -f"  и передавать на STDIN перловому скрипту. > >что посоветуете? через простой пайп не работает, sleep очень не хочется ставить. > >пока поставил перенаправление в файл, а уже оттуда беру, но это не >вариант =( use File::Tail; http://search.cpan.org/~mgrabnar/File-Tail-0.99.3/Tail.pm

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	4. "tail -f  на STDIN перлового скрипта."
	Сообщение от bingo2 on 20-Апр-07, 12:11
	>>привет. >>есть программа, которая как не странно пишет лог :) >>есть перловый скрипт, который его парсит. >> >>задача: >>получать последние строки из лога по >>ssh login@server "tail -f"  и передавать на STDIN перловому скрипту. >> >>что посоветуете? через простой пайп не работает, sleep очень не хочется ставить. >> >>пока поставил перенаправление в файл, а уже оттуда беру, но это не >>вариант =( > >use File::Tail; >http://search.cpan.org/~mgrabnar/File-Tail-0.99.3/Tail.pm спасибо. буду знать... попытался разобраться с модулем - но с оптимальными параметрами проблемы (задал все интрервалы=0|1 - всё равно задержки вывода порядка 10 секунд)... нашёл решение на одном форуме use IO::File; use strict; my $tail = new IO::File; $tail->open("<operations.log"); while(1){   my @lines=$tail->getlines();   if(0==scalar(@lines)){     sleep 1;   }else{     my $line;     foreach $line(@lines){       chomp $line;       print "$line\n";     }   } }
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]