Help for this page

Select Code to Download


  1. or download this
    my $pid = `ps ax | awk '/programname/ && !/awk/ {print \$1}`; # ;-)
    
  2. or download this
    open my $ps => "ps ax |" or die;
    my $pid;
    ...
        }
    }
    close $ps or die;