File: linux_memory.pl

package info (click to toggle)
cacti 1.2.30%2Bds1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 67,176 kB
  • sloc: php: 123,193; javascript: 29,825; sql: 2,595; xml: 1,823; sh: 1,228; perl: 194; makefile: 65; python: 51; ruby: 9
file content (15 lines) | stat: -rw-r--r-- 328 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl

delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';

$val1 = $ARGV[0];
($val1) = $val1 =~ /^([\w.:]+)$/;

open(PROCESS, "cat /proc/meminfo | grep -w $val1 |");
foreach (<PROCESS>) {
  if ($_ =~ /($ARGV[0].*\s)(.*[0-9])( kB)/) {
   print $2;
  }
}
close(PROCESS);