将系统负载打印到标题栏上

时间：2008-06-30 来源：coldrainsunc

将负载打印到虚拟终端的标题栏上，有意思，不怎么实用。
直接运行sysmon.pl就行了，顺便提一下，这里的系统负载，是指CPU上运行或等待运行的进程数。

#!/usr/bin/perl -w

#将CPU负载打印到标题栏上

use strict;

$|++;
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;
}