主要是利用查找/proc目錄下的相關文件進行查找.
?12345678910111213141516171819202122 #!/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; }
公眾號
事業單位
當前位置：
公考類
招聘類
各類考試
