ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladislav A. Shugarov                2:5020/400     01 Oct 2002  14:23:24
 To : All
 Subject : Демон
 -------------------------------------------------------------------------------- 
 

 
 Помогите!
 Hеобходимо сделать демона (может быть с помощью sleep), чтобы
 эту программу один раз запустить в фоне, а она постоянно
 просматривала процессы и делала то, на что расчитана.
 
 #!/usr/bin/perl -w
 
 @w = `w`;
 @w = grep (/здесь что-то ищется/, @w);
   foreach $i (0..$#w) {
     @w1 = split (/\s+/,$w[$i]);
      if ($w1[$#w1] =~ /^-$/) {
         @ps = `ps -ax`;
         @ps = grep (/$w1[1]/, @ps);
         @ps = grep (/\-su/, @ps);
         $ps = "@ps[0..$#ps]";
         @ps1 = split (/\s+/,$ps);
         $procid = $ps1[0];
             if ($procid !~ //) {
                 system "kill -9 $procid";
             } else {
                 next;
             }
      } else {
         next;
      }
   }
 _______________________
 Vladislav A. Shugarov | e-mail: vlad@ineco.ryazan.su
 --- ifmail v.2.15dev5
  * Origin: Ryazan Power Connect Ltd. (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Демон   Vladislav A. Shugarov   01 Oct 2002 14:23:24   Re: Демон   Vladimir Podgorny   01 Oct 2002 15:53:20   Re: Демон   Alexander Chestnov   24 Oct 2002 22:33:44