【perl】 system関数を使ってサーバの稼動状況を表示してみた(2)

2007年11月16日 20:51 (っ´∀｀)っゃー | 個別ページ | トラックバック(0)

前回の続き。今度は、ブラウザで表示できるようにしてみた。

sh-3.00$ cat example2.pl
#!/usr/bin/perl
#print "Content-type: text/html;\n\n";
print "Content-type: text/html; charset=UTF-8\n\n";
print "<HTML>\n";
print "<BODY>\n";
$hr = "-" x 96;
$time = localtime;

print "$hr \n";
print "$time のディスク使用量 \n";
print "\n";
print "<pre>\n";
system("/bin/df -h");
print "</pre>\n";
print "\n";

print "$hr \n";

print "$time のメモリ使用状況 \n";
print "\n";
print "<pre>\n";
system("/usr/bin/free");
print "</pre>\n";
print "\n";

print "$hr \n";

print "CPU使用率 \n";
print "\n";
print "<pre>\n";
system("LANG=C /usr/bin/sar -u 1 10");
print "</pre>\n";
print "\n";

print "$hr \n";

print " \n";
print "</BODY>\n";
print "</HTML>\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

------------------------------------------------------------------------------------------------