mirror of
https://github.com/Cacti/cacti.git
synced 2026-11-09 14:02:54 +09:00
11 lines
198 B
Perl
11 lines
198 B
Perl
#!/usr/bin/perl
|
|
delete @ENV{qw(PATH)};
|
|
$ENV{PATH} = "/usr/bin:/bin";
|
|
$path = $ENV{'PATH'};
|
|
|
|
open(PROCESS, "ps ax | grep -c : |");
|
|
$output = <PROCESS>;
|
|
close(PROCESS);
|
|
chomp($output);
|
|
print $output;
|