#!/usr/local/bin/perl
#
# このaisatsu.txtはaisatsu.plに変更してからご利用ください.

#
# 時刻別に挨拶文を変えるスクリプト (c)1996 by rescue
#

$word_0= "日付が変わりました。";
$word_1= "もう１時を過ぎましたよ。";
$word_2= "もう２時を過ぎて<br>夜もふけてきました。";
$word_3= "もう３時を過ぎました。<br>寝むくないですか？";
$word_4= "この時間にもなれば<br>シーンとしてますね。";
$word_5= "５時を過ぎました。<br>外は白んできましたか？";
$word_6= "６時を過ぎました。<br>ニワトリは鳴いているかな？";
$word_7= "今日も元気に<br>１日を過ごしましょう。";
$word_8= "朝ごはんは<br>ちゃんと食べました？";
$word_9= "９時を過ぎました。";
$word_10="１０時のおやつです。";
$word_11="１１時を過ぎました。<br>もうすぐお昼ですね。"; 
$word_12="おひ〜る休みは<br>ウキウキウォッチ・・・。";
$word_13="１時を過ぎました。<br>お昼食べたら眠くなった？";
$word_14="２時を過ぎました。<br>ワイドショーの時間です。";
$word_15="おやつの時間です！";
$word_16="４時を過ぎました。<br>夕焼けこやけ〜の・・・";
$word_17="５時を過ぎました。<br>５時から男の時間です！";
$word_18="６時を過ぎました。";
$word_19="７時を過ぎました。<br>今夜のおかずは何かな？";
$word_20="８時を過ぎただよ。<br>全員集合！ちょっと古い？";
$word_21="今日はいいドラマが<br>あったかな？";
$word_22="１０時を過ぎました。<br>オ・ト・ナの時間です。";
$word_23="テレホーダイ開始です。<br>混んできたかな？";

($sec,$min,$hour)=localtime(time); # 時刻を取得

print $hour==0 ? $word_0:          # 時刻に対応する文章を指定する
      $hour==1 ? $word_1:
      $hour==2 ? $word_2:
      $hour==3 ? $word_3:
      $hour==4 ? $word_4:
      $hour==5 ? $word_5:
      $hour==6 ? $word_6:
      $hour==7 ? $word_7:
      $hour==8 ? $word_8:
      $hour==9 ? $word_9:
      $hour==10 ? $word_10:
      $hour==11 ? $word_11:
      $hour==12 ? $word_12:
      $hour==13 ? $word_13:
      $hour==14 ? $word_14:
      $hour==15 ? $word_15:
      $hour==16 ? $word_16:
      $hour==17 ? $word_17:
      $hour==18 ? $word_18:
      $hour==19 ? $word_19:
      $hour==20 ? $word_20:
      $hour==21 ? $word_21:
      $hour==22 ? $word_22:
      $hour==23 ? $word_23:"お元気ですか？","\n";  # 時刻を取得できなかった時の為の表示文章

exit(0);