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

hiphop 2004-10-20 02:30:10
rt
...全文
64 点赞 收藏 4
写回复
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

社区成员

Linux/Unix社区 内核源代码研究区
申请成为版主
社区公告
暂无公告