Description :
Renvoie la ram physique, la ram réellement utiliser et le swap
Portion de code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Extrait du script sysalive.pl
# http://lhebergeur.net/perl/script.cgi?script=./sys_alive.pl
sub GetInfosRam {
open (F,"/proc/meminfo"); my @ram=<F>; close(F);
my @temp = split(/\s+/, $ram[1]);
my $ram_physique = $temp[2] / 1024;
my $ram_reelle = ($temp[2] - $temp[5] - $temp[6]) / 1024;
my @temp = split(/\s+/, $ram[2]);
my $ram_swap = $temp[2] / 1024;
return ($ram_physique, $ram_reelle, $ram_swap);
}
|
|
Informations rapides
