On Nov 14, 2007 11:11 AM, Marco <[EMAIL PROTECTED]> wrote:
>
> $inact = "cat /proc/meminfo | grep -w Inactive | sed 's/^.*Inactive: //
> g' | sed 's/kB//'";
> $result = system(cat /proc/meminfo | grep -w Inactive | sed 's/
> ^.*Inactive: //g' | sed 's/kB//');
> print $result;
>
>
btw, here you really don't need the dirty system calls.
to get the info you want, just do:
my $result;
open HD,"/proc/meminfo" or die $!;
while(<HD>) {
next unless /Inactive/;
$result = (split)[2]; last;
}
close HD;
print $result;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
