前回の続き。今度は、ブラウザで表示できるようにしてみた。
sh-3.00$ cat example2.pl
#!/usr/bin/perl
#print "Content-type: text/html;nn";
print "Content-type: text/html; charset=UTF-8nn";
print "n";
print "
$hr = "-" x 96;
$time = localtime;
print "$hr
n";
print "$time のディスク使用量
n";
print "n";
print "
n";
system("/bin/df -h");
print "
n";
print "n";
print "$hr
n";
print "$time のメモリ使用状況
n";
print "n";
print "
n";
system("/usr/bin/free");
print "
n";
print "n";
print "$hr
n";
print "CPU使用率
n";
print "n";
print "
n";
system("LANG=C /usr/bin/sar -u 1 10");
print "
n";
print "n";
print "$hr
n";
print "
n";
print "n";
print "n";
ブラウザで実行した結果は以下の通り。
------------------------------------------------------------------------------------------------
Fri Nov 16 20:49:52 2007 のディスク使用量
Filesystem Size Used Avail Use% Mounted on
/dev/mapper/VolGroup00-LogVol00
66G 1.3G 61G 3% /
/dev/sda1 99M 24M 71M 25% /boot
none 1014M 0 1014M 0% /dev/shm
/dev/sdb1 68G 355M 64G 1% /home
------------------------------------------------------------------------------------------------
Fri Nov 16 20:49:52 2007 のメモリ使用状況
total used free shared buffers cached
Mem: 2075952 834476 1241476 0 106752 581424
-/+ buffers/cache: 146300 1929652
Swap: 2031608 0 2031608
------------------------------------------------------------------------------------------------
CPU使用率
Linux 2.6.9-55.0.12.EL (nullpopopo.blogcube.info) 11/16/07
20:49:52 CPU %user %nice %system %iowait %idle
20:49:53 all 0.00 0.00 0.00 0.00 100.00
20:49:54 all 0.00 0.00 0.00 0.00 100.00
20:49:55 all 0.00 0.00 0.00 0.00 100.00
20:49:56 all 0.00 0.00 0.00 0.00 100.00
20:49:57 all 0.99 0.00 0.00 1.98 97.03
20:49:58 all 0.00 0.00 0.00 0.00 100.00
20:49:59 all 0.00 0.00 0.00 0.00 100.00
20:50:00 all 0.00 0.00 0.00 0.00 100.00
20:50:01 all 0.99 0.00 0.99 4.95 93.07
20:50:02 all 4.90 0.00 11.76 0.00 83.33
Average: all 0.70 0.00 1.30 0.70 97.31
------------------------------------------------------------------------------------------------