mirror of
https://github.com/Cacti/cacti.git
synced 2026-11-02 18:17:00 +09:00
Tony Roman
6c0cca5942
git-svn-id: svn+ssh://repo.cacti.net/var/data/svnroot/cacti/branches/BRANCH_0_8_6/cacti@3439 860744bd-22fc-0310-8c96-e9fe5004b5ca
10 lines
174 B
Perl
10 lines
174 B
Perl
#!/usr/bin/perl
|
|
|
|
open(PROCESS, "cat /proc/meminfo | grep -w $ARGV[0] |");
|
|
foreach (<PROCESS>) {
|
|
if ($_ =~ /($ARGV[0].*\s)(.*[0-9])( kB)/) {
|
|
print $2;
|
|
}
|
|
}
|
|
close(PROCESS);
|