The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

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

"Помогите написать Perl скрипт"
Сообщение от alexeylomov Искать по авторуВ закладки(ok) on 06-Июл-04, 14:52  (MSK)
Здравствуйте. Подскажите, пожалуйста, как быть. Нужно написать скрипт, который выводил бы следующее:
предположим есть сервис q752send и он поднят
при помоши скрипта вызываю svstat /service/q752send и получаю
q752send: up (pid 1473) 1036142 seconds, normally down
естественно, по этой строке могу узнать состояние сервиса и вывести необходимую информацию, но
не могу придумать, как вывести время 1036142. Ведь если сервис down, то pid отсутствует и формат
строки меняется.
Подскажите, как можно выловить это число?
  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

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

1. "Помогите написать Perl скрипт"
Сообщение от ihor Искать по авторуВ закладки on 06-Июл-04, 15:29  (MSK)
if ($str =~ /([0-9]+)\s+seconds/) {
  print "$1\n";
}


  Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Помогите написать Perl скрипт"
Сообщение от alexeylomov Искать по авторуВ закладки(ok) on 06-Июл-04, 16:02  (MSK)
>if ($str =~ /([0-9]+)\s+seconds/) {
>  print "$1\n";
>}


Спасибо! А то запутался я.

  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

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




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2025 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру