主页
问答

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

hiphop 2004-10-20 02:30:10

...全文

4 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

hiphop 2004-10-21

up一下没人知道嘛

回复赞

hiphop 2004-10-20

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

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

回复赞

winux0 2004-10-20

临时写的，功能差不多

回复赞

winux0 2004-10-20

#!/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()

回复赞

发动态

发帖子

Linux_Kernel

创建于2007-08-27

加入

4008

社区成员

1.7w+

社区内容

Linux/Unix社区内核源代码研究区

申请成为版主

社区公告

暂无公告