Files
cacti/scripts/unix_processes.pl
T
Tony Roman 6c0cca5942 bug#0000656: Perl scripts using back ticks is not portable
git-svn-id: svn+ssh://repo.cacti.net/var/data/svnroot/cacti/branches/BRANCH_0_8_6/cacti@3439 860744bd-22fc-0310-8c96-e9fe5004b5ca
2005-12-21 02:56:49 +00:00

8 lines
123 B
Perl

#!/usr/bin/perl
open(PROCESS, "ps ax | grep -c : |");
$output = <PROCESS>;
close(PROCESS);
chomp($output);
print $output;