perl查找进程PID的例子

更新时间：2014年06月24日 08:43:16 投稿：junjie

这篇文章主要介绍了perl查找进程PID的例子,例子中主要通过/proc目录进行PID的查找,需要的朋友可以参考下

主要是利用查找/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;
}

您可能感兴趣的文章:

python 获取命令行参数函数
perl下获取命令行的参数跟数量的函数。
2009-04-04
什么是Perl？编程语言Perl详细介绍
这篇文章主要介绍了什么是Perl？编程语言Perl详细介绍,本文着重讲解了Perl的发展历史,需要的朋友可以参考下
2015-02-02
perl pop push shift unshift实例介绍
perl的pop跟push操作数组的最右边，shift跟unshift操作数组的最左边
2013-02-02
perl查找进程PID的例子
这篇文章主要介绍了perl查找进程PID的例子,例子中主要通过/proc目录进行PID的查找,需要的朋友可以参考下
2014-06-06
perl中的范围声明our-my-local介绍
这篇文章主要介绍了perl中的范围声明our-my-local介绍,这3个关键字都是控制变量范围的,需要的朋友可以参考下
2015-02-02
perl Socket编程实例代码
Perl的networking 功能非常强大，基本上用c/c++能做的事perl都能做，而且做得更轻松方便，甚至可以只用10来行代码就完成了c/c++要几十上百甚至几百行才能完成得好的工作
2013-02-02
Perl时间处理函数用法介绍
本文重点讨论Perl时间处理函数的概念,Perl能在绝大多数操作系统运行,可以方便地向不同操作系统迁移,并且Perl借取了C、sed、awk、shellscripting以及很多其他程序语言的特性
2017-09-09
perl 删除数组元素的几种方法小结
perl 删除数组元素的几种方法，有需要的朋友可以参考下
2013-02-02
Perl5 OOP学习笔记
在Perl排名持续下降的情况下学Perl，似乎是有点不明智。但是，工作需要，不得不学啊。再说，Perl现在在测试领域还是用得非常多的。Phython虽然也在测试领域开始活跃起来，不过我始终还是不太喜欢Phython的语法。
2009-04-04
perl之print,printf,sprintf使用案例详解
这篇文章主要介绍了perl之print,printf,sprintf使用案例详解,本篇文章通过简要的案例,讲解了该项技术的了解与使用,以下就是详细内容,需要的朋友可以参考下
2021-09-09

perl查找进程PID的例子

相关文章

最新评论

大家感兴趣的内容

最近更新的内容

常用在线小工具