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

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

"Как завершить порожденный из open() процесс tail -F?"
Сообщение от dodger (ok) on 29-Окт-05, 21:34  (MSK)
Ситуация: Из perl скрипта запускается процесс tail -F, натравленный на лог-файл таким способом: open (TAIL, "/usr/bin/tail -F -n 0 /var/log/messages|"); далее он в цикле while (<TAIL>) { обрабатывает каждую появляющуюся строку. Прекращать работу все равно когда то приходится: $SIG{TERM} = 'self_destroy'; sub self_destroy {         close(TAIL) or warnlog("could not shutdown tail process! $!");         die("\n"); } SIGTERM посланный скрипту не приводит к завершению. Вместо этого скрипт висит вместе с tail процессом в ожидании. SIGTERM процессу tail помогает, но close(TAIL) получает отрицательный результат, и скрипт с руганью таки отваливается. Возможно ли как нибудь получить PID процесса, порожденного с помощью open()? Или можно решить проблему по другому?
	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

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

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

1. "Как завершить порожденный из open() процесс tail -F?"
Сообщение от dmitri (??) on 30-Окт-05, 00:19  (MSK)
>Ситуация: >Из perl скрипта запускается процесс tail -F, натравленный на лог-файл таким способом: > > >open (TAIL, "/usr/bin/tail -F -n 0 /var/log/messages|"); > >далее он в цикле > >while (<TAIL>) { > >обрабатывает каждую появляющуюся строку. > >Прекращать работу все равно когда то приходится: > >$SIG{TERM} = 'self_destroy'; >sub self_destroy >{ >        close(TAIL) or warnlog("could not >shutdown tail process! $!"); >        die("\n"); >} > >SIGTERM посланный скрипту не приводит к завершению. Вместо этого скрипт висит вместе >с tail процессом в ожидании. >SIGTERM процессу tail помогает, но close(TAIL) получает отрицательный результат, и скрипт с >руганью таки отваливается. > >Возможно ли как нибудь получить PID процесса, порожденного с помощью open()? Или >можно решить проблему по другому? Это не рационально, я сделал так: в syslog.conf ftp.* | exec  /path_to/my_prog.pl данные в $a т.е. while ($a = <> ){.....}
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "Как завершить порожденный из open() процесс tail -F?"
	Сообщение от dodger (ok) on 31-Окт-05, 07:36  (MSK)
	>Это не рационально, я сделал так: >в syslog.conf >ftp.*     | exec  /path_to/my_prog.pl > >данные в $a т.е. while ($a = <> ){.....} Прошу прощения, но разве является рациональным безусловное перенаправление STDOUT и STDIN из скрипта в /dev/null и запуск отдельного (!) процесса для каждой строки журнала? man syslog.conf + процесс запускается с правами syslogd (догадаемся, что это за привелегии)
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Как завершить порожденный из open() процесс tail -F?"
Сообщение от gr on 30-Окт-05, 15:18  (MSK)
>Ситуация: >Из perl скрипта запускается процесс tail -F, натравленный на лог-файл таким способом: > > >open (TAIL, "/usr/bin/tail -F -n 0 /var/log/messages|"); > >далее он в цикле > >while (<TAIL>) { > >обрабатывает каждую появляющуюся строку. > >Прекращать работу все равно когда то приходится: > >$SIG{TERM} = 'self_destroy'; >sub self_destroy >{ >        close(TAIL) or warnlog("could not >shutdown tail process! $!"); >        die("\n"); >} > >SIGTERM посланный скрипту не приводит к завершению. Вместо этого скрипт висит вместе >с tail процессом в ожидании. >SIGTERM процессу tail помогает, но close(TAIL) получает отрицательный результат, и скрипт с >руганью таки отваливается. > >Возможно ли как нибудь получить PID процесса, порожденного с помощью open()? Или >можно решить проблему по другому? Можно. Например написать правильно $SIG{'TERM'} = \&self_destroy; И вообще почитать учебник.
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "Как завершить порожденный из open() процесс tail -F?"
	Сообщение от dodger (ok) on 31-Окт-05, 07:40  (MSK)
	>Можно. Например написать правильно > >$SIG{'TERM'} = \&self_destroy; > >И вообще почитать учебник. И каким образом мне поможет поместить в хэш ссылку на функцию вместо имени? Это поможет в случае с цепляемыми модулями (в этом самом учебнике написано), а не в моем. ЗЫ: Проблема решилась чтением документации. open возвращает PID, если открывается pipe. Всем спасибо за восклицания RTFM! в разной форме, и навязывание своего мнения :) Вряд ли я когда нибудь буду сюда что-либо помещать.
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

5. "Как завершить порожденный из open() процесс tail -F?"
Сообщение от mthawk (ok) on 31-Окт-05, 15:45  (MSK)
>Ситуация: >Из perl скрипта запускается процесс tail -F, натравленный на лог-файл таким способом: > > >open (TAIL, "/usr/bin/tail -F -n 0 /var/log/messages|"); > >далее он в цикле > >while (<TAIL>) { > >обрабатывает каждую появляющуюся строку. > >Прекращать работу все равно когда то приходится: > >$SIG{TERM} = 'self_destroy'; >sub self_destroy >{ >        close(TAIL) or warnlog("could not >shutdown tail process! $!"); >        die("\n"); >} > >SIGTERM посланный скрипту не приводит к завершению. Вместо этого скрипт висит вместе >с tail процессом в ожидании. >SIGTERM процессу tail помогает, но close(TAIL) получает отрицательный результат, и скрипт с >руганью таки отваливается. > >Возможно ли как нибудь получить PID процесса, порожденного с помощью open()? Или >можно решить проблему по другому? Если нужно завершить принудительно в произвольный момент времени, то безусловно написать обработчик сигнала SIGTERM или SIGHUP А если нужно, что бы скрипт перестал тейлить напричер через N минут Почитать про функцию alarm #perldoc -f alarm
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	6. "Как завершить порожденный из open() процесс tail -F?"
	Сообщение от dodger (ok) on 01-Ноя-05, 05:38  (MSK)
	>Если нужно завершить принудительно в произвольный момент времени, то безусловно написать обработчик >сигнала SIGTERM или SIGHUP >А если нужно, что бы скрипт перестал тейлить напричер через N минут > >Почитать про функцию alarm >#perldoc -f alarm :) Наверное я все таки сам туплю. Ну не может же быть так, что 3 человека меня неправильно поняли.
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

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

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