Select Code to Download

Select or download this

   28066  p3  S+   353:01.11 perl /Library/WebServer/Documents/perlscr
+ipts/refresh/getDat    ##This is supposed to be getDataLive.pl script
+ i want to monitor.
   571 std  S+     0:00.05 perl systemcmd.pl  ##The name of my script 
+file
   590 std  S+     0:00.02 sh -c ps - auwwx | grep perl
   592 std  R+     0:00.00 grep perl

Select or download this

        open(PS_F, "ps - auwwx | grep perl |") || die "Can't open cons
+ole\n";
        my @data = <PS_F>;
...
        $comm =~ s/\r//g;

        if($comm =~ m/getDataLive.pl/i) {