主要是利用查找/proc目錄下的相關(guān)文件進(jìn)行查找.
?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; }
公考類(lèi)
招聘類(lèi)
各類(lèi)考試版權(quán)所有:易賢網(wǎng)
公眾號(hào)
事業(yè)單位
當(dāng)前位置：