いま何時?

時刻を表示する方法

Perl で時間を知るには localtime という関数を使います。

#! /usr/bin/perl
print "Content-type: text/html\n\n";
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime;
print "今は", $year + 1900, "年", $mon + 1, "月", $mday, "日",
  $hour, "時", $min, "分", $sec, "秒です。\n";

計算をしないなら次のような書き方もできます。

print "$hour 時 $min 分 $sec 秒です。\n";

曜日も出力するには,さらに次の部分を追加します。

$youbi = ('日', '月', '火', '水', '木', '金', '土')[$wday];
print $youbi, "曜日です。\n";

もうちょっと凝ってみよう

簡単なタグをいくつか入れてみましょう。

#! /usr/bin/perl
print "Content-type: text/html\n\n";
print "<title>What time is it?</title>\n";
print "<body bgcolor=yellow>\n";
print "<h1>いま何時?</h1>\n";
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime;
print "<p>今は", $year + 1900, "年", $mon + 1, "月", $mday, "日",
  $hour, "時", $min, "分", $sec, "秒です。\n";

奥村晴彦

Last modified: 2004-12-24 12:51:24