#!/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的格式化輸出及chomp的重要性分析
perl格式化輸出的一個例子，使用了chomp，需要的朋友可以參考下
2013-02-02
Perl List::Util模塊使用實例
這篇文章主要介紹了Perl List::Util模塊使用實例,本文給出掃描符合條件的某個列表并取出第一個符合條件的、求1到1000之間的和、求一組數字的最大值與最小值等實用功能代碼,需要的朋友可以參考下
2015-06-06
perl用{}修飾變量名的寫法分享
在perl中用{}修飾變量名，可以防止 _ 被解釋為變量名的一部分
2013-02-02
using Net::SSH2 shell 的二個方法
using Net::SSH2 shell 的二個方法，供大家參考
2013-02-02
perl pop push shift unshift實例介紹
perl的pop跟push操作數組的最右邊，shift跟unshift操作數組的最左邊
2013-02-02
Windows和Linux系統(tǒng)下perl連接SQL Server數據庫的方法
這篇文章主要介紹了Windows和Linux系統(tǒng)下perl連接SQL Server數據庫的方法,本文詳細的講解了Windows和Linux系統(tǒng)中perl如何連接Microsoft SQL Server數據庫,需要的朋友可以參考下
2014-10-10
perl查找進程PID的例子
這篇文章主要介紹了perl查找進程PID的例子,例子中主要通過/proc目錄進行PID的查找,需要的朋友可以參考下
2014-06-06
一行代碼解決 perl輸入排序輸出問題
一行代碼解決 perl輸入排序輸出問題，需要的朋友可以參考下
2013-02-02
Perl的Mail::POP3Client模塊和Gmail通信實例
這篇文章主要介紹了Perl的Mail::POP3Client模塊和Gmail通信實例,本文直接給出實現代碼,需要的朋友可以參考下
2015-05-05
perl腳本實現限制ssh最大登錄次數（支持白名單）
這篇文章主要介紹了perl腳本實現限制ssh最大登錄次數,腳本支持支持白名單設置,例如root可以不限制登錄次數,需要的朋友可以參考下
2014-07-07