查看内存使用情况free命令的源代码在哪个文件中？

[hiphop]

rt

[winux0]

#!/usr/bin/perl -w

use strict;

sub MAIN()
{
my ($mt,$mu,$mf,$ms,$mb,$mc,$bcu,$bcf,$st,$su,$sf);
print "\t\ttotal\tused\tfree\tshared\tbuffers\tcached\n";
open (FILE, "/proc/meminfo");

while(<FILE>)
{
my @array = split;
if( $array[0] eq "MemTotal:" )
{
$mt = $array[1];
next;
}
if( $array[0] eq "MemFree:" )
{
$mf = $array[1];
next;
}
if( $array[0] eq "MemShared:" )
{
$ms = $array[1];
next;
}
if( $array[0] eq "Buffers:" )
{
$mb = $array[1];
next;
}
if( $array[0] eq "Cached:" )
{
$mc = $array[1];
next;
}
if( $array[0] eq "SwapTotal:" )
{
$st = $array[1];
next;
}
if( $array[0] eq "SwapFree:" )
{
$sf = $array[1];
next;
}
}
$mu = $mt - $mf;
$su = $st - $sf;
$bcu = $mu - $mb - $mc;
$bcf = $mf + $mb + $mc;
print "Mem:\t\t$mt\t$mu\t$mf\t$ms\t$mb\t$mc\n";
print "-/+ buffers/cache:\t$bcu\t$bcf\n";
print "Swap:\t\t$st\t$su\t$sf\n"

}

MAIN()

[winux0]

临时写的，功能差不多

[hiphop]

3Q to 楼上
但我的环境是嵌入式 so open (FILE, "/proc/meminfo");
中的meminfo是没有的

我需要自己改写free的程序 集成到我的程序用 对内存进行监视
并在我需要的时候把当前内存的使用情况写近文件中 以便我来观察 ~
：）

[hiphop]

up一下 没人知道嘛