perl查找进程PID的例子
摘要：主要是利用查找/proc目录下的相关文件进行查找.#!/usr/bin/perlusestrict;usewarnings;#usage:p...
主要是利用查找/proc目录下的相关文件进行查找.
#!/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; }
【perl查找进程PID的例子】相关文章：
上一篇：
Perl集群配置管理系统Rex简明手册
下一篇：
perl命令行参数内建数组@ARGV浅析