#!/usr/local/bin/perl
#
# 時刻の取得
#
# $sec:秒 $min:分 $hour:時 $mon:月−1 $year:年
# $wday:日(0)〜土(6)
#
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon++;
#
# 曜日の定義
#
@day = ('日','月','火','水','木','金','土');
#
# 時刻の表示
#
print "Content-type: text/html\n\n";
print '現在,'."'$year年 $mon月 $mday日 $day[$wday]曜日 $hour時 $min分 $sec秒です.".'
';
#
# アクセス時間で挨拶をかえる
#
$morning = 9; # 9時まで
$noon = 16; # 16時まで
$evening = 20; # 20時まで
$night = 4; # 4時まで
#おはよう
if ($hour > $night && $hour <= $morning) {
print 'おはようございます!';
}
#こんにちは
if ($hour > $morning && $hour <= $noon) {
print 'こんにちは!';
}
#こんばんわ
if ($hour > $noon && $hour <= $evening) {
print 'こんばんわ!';
}
#おやすみなさい
if ($hour > $evening || $hour <= $night) {
print 'おやすみなさい...';
}
print '
';