用这种方式 计算CPU使用率 和 top 上的CPU使用率 相差较大，不准确！高手解释下！

qq64878641

#!/usr/bin/perl -w
use strict;
sub GetCPUState{
        open FILE, "/proc/stat" or die "cannot open /proc/stat file ";
        my @info = split (/ +/ ,<FILE>);
        my @result ;
        $result[0] = $info[4] ; # IDLE time
        for(1..$#info){
                $result[1] += $info[$_];
        }
        close FILE;
        return @result;
}
my (@newCPU,@oldCPU);
@newCPU = &GetCPUState;
while(1){
        sleep(5);
        @oldCPU = @newCPU;
        @newCPU = GetCPUState;
        my $cpu_used =  100 * ( 1 - (($newCPU[0] - $oldCPU[0])/($newCPU[1] - $oldCPU[1])) );
        printf "CPU used: %3.2f%% \n", $cpu_used;
        @oldCPU = @newCPU;
}

兰花仙子

参考下dstat程序，它统计cpu、内存、磁盘IO、网络流量，很好很强大，不过是用python写的。

iakuf

用 Perl 重写，当练手

qq64878641

回复 2# 兰花仙子


    dstat  我百度了下， 没有源代码！
    请问仙子怎么参考？