23 lines
394 B
Perl
23 lines
394 B
Perl
#!perl
|
|
|
|
use strict;
|
|
|
|
my $match = $ARGV[0];
|
|
|
|
opendir DH, "/proc" or die;
|
|
chdir "/proc";
|
|
local $/;
|
|
|
|
while (my $pid = readdir DH) {
|
|
next unless $pid =~ /^\d+$/;
|
|
open FH, "$pid/cmdline" or next;
|
|
my(@cmdline) = split /\000/, <FH>;
|
|
close FH;
|
|
if ($match) {
|
|
next unless grep { /$match/o } @cmdline;
|
|
}
|
|
print "(pid=$pid) ", (map { "=>$_<=" } @cmdline), "\n";
|
|
}
|
|
|
|
closedir DH;
|