perlの最近のブログ記事
前回の続き。今度は、ブラウザで表示できるようにしてみた。
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<BR>\n";
print "$time のディスク使用量<BR>\n";
print "\n";
print "<pre>\n";
system("/bin/df -h");
print "</pre>\n";
print "\n";
print "$hr<BR>\n";
print "$time のメモリ使用状況<BR>\n";
print "\n";
print "<pre>\n";
system("/usr/bin/free");
print "</pre>\n";
print "\n";
print "$hr<BR>\n";
print "CPU使用率<BR>\n";
print "\n";
print "<pre>\n";
system("LANG=C /usr/bin/sar -u 1 10");
print "</pre>\n";
print "\n";
print "$hr<BR>\n";
print "<BR>\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
------------------------------------------------------------------------------------------------
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<BR>\n";
print "$time のディスク使用量<BR>\n";
print "\n";
print "<pre>\n";
system("/bin/df -h");
print "</pre>\n";
print "\n";
print "$hr<BR>\n";
print "$time のメモリ使用状況<BR>\n";
print "\n";
print "<pre>\n";
system("/usr/bin/free");
print "</pre>\n";
print "\n";
print "$hr<BR>\n";
print "CPU使用率<BR>\n";
print "\n";
print "<pre>\n";
system("LANG=C /usr/bin/sar -u 1 10");
print "</pre>\n";
print "\n";
print "$hr<BR>\n";
print "<BR>\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
------------------------------------------------------------------------------------------------
時刻表示は、unixのdateコマンドより楽かも知れない。
今日のネタは、これ。
sh-3.00$ cat example1.pl
#!/usr/bin/perl
print "------------------------------\n";
$data = localtime;
print "現在時刻を表示する\n";
print "$data\n";
print "------------------------------\n";
$time = time;
print "現在時刻をUNIXTIMEで表示する\n";
print "$time\n";
print "------------------------------\n";
$gmtime = gmtime(time + 0);
print "現在時刻をGMTで表示する\n";
print "$gmtime\n";
print "------------------------------\n";
実行結果は以下の通り。
sh-3.00$ ./example1.pl
------------------------------
現在時刻を表示する
Wed Nov 14 23:00:10 2007
------------------------------
現在時刻をUNIXTIMEで表示する
1195048810
------------------------------
現在時刻をGMTで表示する
Wed Nov 14 14:00:10 2007
------------------------------
今日のネタは、これ。
sh-3.00$ cat example1.pl
#!/usr/bin/perl
print "------------------------------\n";
$data = localtime;
print "現在時刻を表示する\n";
print "$data\n";
print "------------------------------\n";
$time = time;
print "現在時刻をUNIXTIMEで表示する\n";
print "$time\n";
print "------------------------------\n";
$gmtime = gmtime(time + 0);
print "現在時刻をGMTで表示する\n";
print "$gmtime\n";
print "------------------------------\n";
実行結果は以下の通り。
sh-3.00$ ./example1.pl
------------------------------
現在時刻を表示する
Wed Nov 14 23:00:10 2007
------------------------------
現在時刻をUNIXTIMEで表示する
1195048810
------------------------------
現在時刻をGMTで表示する
Wed Nov 14 14:00:10 2007
------------------------------
今日もトゴシくんは虐められてます。
まるでスチュワーデス物語における、堀ちえみのような扱いです。
そんなトゴシくんの日常を、スクリプトにしてみました。
※ ホントは今日、会社はおやすみでした。
join関数で、配列中のデータの区切りを指定して表示してみます。
sh-3.00$ cat example1.pl
#!/usr/bin/perl
@data = ("ドジ","ノロマ");
$comment = join("で",@data);
print "とごしは $comment な亀である\n";
exit;
実行結果は以下の通りです。
sh-3.00$ ./example1.pl
とごしは ドジでノロマ な亀である
おまけにもう1つ
sh-3.00$ cat example2.pl
#!/usr/bin/perl
$data[0] = ("コーラ");
$data[1] = ("めろんぱん");
$comment = join("と",@data);
print "おい、とごし $comment 買って来い。\n";
exit;
実行結果は以下の通りです。
sh-3.00$ ./example2.pl
おい、とごし コーラとめろんぱん 買って来い。
まるでスチュワーデス物語における、堀ちえみのような扱いです。
そんなトゴシくんの日常を、スクリプトにしてみました。
※ ホントは今日、会社はおやすみでした。
join関数で、配列中のデータの区切りを指定して表示してみます。
sh-3.00$ cat example1.pl
#!/usr/bin/perl
@data = ("ドジ","ノロマ");
$comment = join("で",@data);
print "とごしは $comment な亀である\n";
exit;
実行結果は以下の通りです。
sh-3.00$ ./example1.pl
とごしは ドジでノロマ な亀である
おまけにもう1つ
sh-3.00$ cat example2.pl
#!/usr/bin/perl
$data[0] = ("コーラ");
$data[1] = ("めろんぱん");
$comment = join("と",@data);
print "おい、とごし $comment 買って来い。\n";
exit;
実行結果は以下の通りです。
sh-3.00$ ./example2.pl
おい、とごし コーラとめろんぱん 買って来い。
