Example of Perl lookup process PID _perl

The main use is to find the related files in the/proc directory.

#!/usr/bin/perl use 
strict;
Use warnings;
#usage: process_grep.pl  processname
exit (Main (@ARGV));
 
Sub Main {my
  $Phash;
  my $ProcessName = shift;
  My $PROC _dir  = "/proc";
  ChDir $PROC _dir;
  My @pids = Glob "[0-9]*";
  For my $pid (@pids) {
    open (FH, "$pid/cmdline") or die "Can ' t $pid file $!";
    $Phash->{$pid} = $_ while <FH>;
  }
  Delete $Phash->{"$$"};
  For my $pid (keys% $Phash) {
    print $pid, "\ n" if $Phash->{$pid} =~/$ProcessName/;
  }
  return 0;
}