• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    perl查找进程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;
    }
    

    您可能感兴趣的文章:
    • perl批量查询ip归属地的方法代码
    • perl中my和our的区别分析
    • 解析posix与perl标准的正则表达式区别
    • Perl中的正则表达式介绍
    • 为Java程序员准备的10分钟Perl教程
    • Perl内置特殊变量总结
    • Perl Sort函数用法总结和使用实例
    • Perl调用shell命令方法小结
    • perl 文件测试操作符汇总
    • Perl使用nginx FastCGI环境做WEB开发实例
    • Perl一句话命令行编程中常用参数总结
    • cpanm安装及Perl模块安装教程
    • Windows和Linux系统下perl连接SQL Server数据库的方法
    • 7个perl数组高级操作技巧分享
    • Perl函数(子程序)学习笔记
    • Perl Substr()函数及函数的应用
    上一篇:Perl集群配置管理系统Rex简明手册
    下一篇:perl命令行参数内建数组@ARGV浅析
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    perl查找进程PID的例子 perl,查找,进程,PID,的,例子,