Re: [PERL] Find meminfo-værdier

[Nils Lastein <sslug@sslug>]

Ok da...

#!/usr/bin/perl
@lines = split(/\n/, `cat /proc/meminfo`);

@ary = split(/ +/, $lines[1]);
print $ary[2]."-(".$ary[6]."+".$ary[5].")\n";
@ary = split(/ +/, $lines[2]);
print $ary[2]."\n";

giver

146427904-(61009920+12058624)
0

nila

*** Big shots are only little shots who keep shooting. ***
*** -- Christopher Morley                              ***

On Tue, 8 Aug 2000, Kent B. Hansen wrote:

> Hej Niels.
> 
> Nils Lastein wrote:
> > 
> > print `cat /proc/meminfo`; er en god start
> 
> Jammen, jammen - det udskriver jo ALT. Jeg skal kun bruge de to
> værdier...
> 
> > > 1. Læs /proc/meminfo
> > > 2. Udskriv værdierne: "mem_used-(mem_cached+mem_buffers)" på linie 1,
> > > samt "swap_used" på linie 2.
> 
> Mvh
> Kent B. Hansen
>