Как я получаю число AS?

Это - вероятно, излишество, но я стал достаточно любопытным закончить его и тест, что оно работает (над другим именем процесса в моей системе, конечно). Можно уничтожить получение $user и $pid для упрощения regexp, который я только добавил для отладки и не испытывал желание срывать назад. Названные получения от жемчуга 5.10 сбрили бы пару большего количества строк, но это должно работать над более старым жемчугом.

необходимо будет заменить печать уничтожением, конечно, но я не собирался на самом деле уничтожить что-либо в своей собственной системе.

#!/usr/bin/perl -T
use strict; use warnings;

$ENV{"PATH"} = "/usr/bin:/bin";                                                       

my (undef,undef,$hour) = localtime(time);                                             
my $target = $hour - 2; # Flag process before this hour                               
my $grep = 'page.py';                                                   

my @proclist = `ps -ef | grep $grep`;                                                 
foreach my $proc (@proclist)                                                          
{                                                                                     
    $proc =~ /(\w+)\s+(\d+)\s+\d+\s+\d+\s+(.*?).*/;                   
    my $user = $1;                                                                    
    my $pid = $2;                                                                     
    my $stime = $3;                                                                   

    $stime =~ s/(\d+):(\d+)/$1/;                                                      

    # We're going to do a numeric compare against strings that                        
    # potentially compare things like 'Aug01' when the STIME is old                   
    # enough.  We don't care, and we want to catch those old pids, so                 
    # we just turn the warnings off inside this foreach.                              
    no warnings 'numeric';                                                            

    unless ($stime > $target)                                                         
    {                                                                                 
        print "$pid\n";                                                               
    }                                                                                 
}