利用/proc/loadavg监控CPU的平均负载

文件内容如下：

[root@supersun ~]# cat /proc/loadavg
0.43 0.26 0.29 1/125 4133
这里的平均负载也就是可运行的进程的平均数

前三个值分别对应系统在5分钟、10分钟、15分钟内的平均负载

第四个值的分子是正在运行的进程数，分母是进程总数，最后一个是最近运行的进程ID号

现在我们将平均负载的值写到虚拟终端的标题栏上。

#!/usr/bin/perl -w
use strict;

$|++;    #此处将特殊变量$|的值设定为1使得数据不进行缓冲

my $host=`/bin/hostname`;
chomp $host;
while(1){
        open(LOAD,"/proc/loadavg") || die "不能打开文件 /proc/loadavg: $!\n";
        my @load=split(/ /,<LOAD>);
        close LOAD;
        print "\033]0;";
        print " $host : $load[0]  $load[1]  $load[2]  at ",scalar(localtime);
        print "\007";

        sleep 2;
}