忙不忙?!

個別PC電腦想要知道CPU使用率，
可以叫出Windows工作管理員以圖形方式查看。

但如果想長期觀察CPU負載情形，
可以使用簡單的程式來取得CPU使用率，
如果需要可寫入資料庫後加以統計、平均，
以便日後評估建置VMWARE虛擬架構的效益。

簡單示範程式如下(每n秒鐘取得一次資料，預設n=10秒)：

use Sys::Info;
use Sys::Info::Constants qw( :device_cpu );
my $info = Sys::Info->new;

my $sleep = $ARGV[0] || 10;

my $cpu  = $info->device( CPU => %options );

printf "CPU: %s\n", scalar($cpu->identify)  || 'N/A';
printf "CPU speed is %s MHz\n", $cpu->speed || 'N/A';
printf "There are %d CPUs\n"  , $cpu->count || 1;

while (1) {
  my $cpu  = $info->device( CPU => %options );
  printf "CPU load: %s\n" , $cpu->load  || 0;
  sleep $sleep;
}