use Proc::ProcessTable; my @pids = get_pid( 'httpd' ); sub get_pid { my ( $process ) = @_; my @pids = (); my $proc = Proc::ProcessTable->new; foreach ( @{ $proc->table } ) { if ($_->cmndline =~ /$process/) { push @pids, $_->pid; } } return @pids; }
perl -le 'print+unpack"N",pack"B32","00000000000000000000001001110110"'
In reply to Re: Determining a Unix PID
by rob_au
in thread Determining a Unix PID
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |