#!/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 '
';