perl查找进程PID的例子
主要是利用查找/proc目录下的相关文件进行查找.
#!/usr/bin/perl usestrict; usewarnings; #usage:process_grep.plProcessName exit(main(@ARGV)); submain{ my$Phash; my$ProcessName=shift; my$PROC_DIR="/proc"; chdir$PROC_DIR; my@pids=glob"[0-9]*"; formy$pid(@pids){ open(FH,"$pid/cmdline")ordie"Can't$pidfile$!"; $Phash->{$pid}=$_while<FH>; } delete$Phash->{"$$"}; formy$pid(keys%$Phash){ print$pid,"\n"if$Phash->{$pid}=~/$ProcessName/; } return0; }