perl查找进程PID的例子（perl查找字符串）深度揭秘

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

#!/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->