#!/usr/local/bin/perl
#
# このaisatsu.txtはaisatsu.plに変更してからご利用ください.
#
# 時刻別に挨拶文を変えるスクリプト (c)1996 by rescue
#
$word_0= "日付が変わりました。";
$word_1= "もう1時を過ぎましたよ。";
$word_2= "もう2時を過ぎて
夜もふけてきました。";
$word_3= "もう3時を過ぎました。
寝むくないですか?";
$word_4= "この時間にもなれば
シーンとしてますね。";
$word_5= "5時を過ぎました。
外は白んできましたか?";
$word_6= "6時を過ぎました。
ニワトリは鳴いているかな?";
$word_7= "今日も元気に
1日を過ごしましょう。";
$word_8= "朝ごはんは
ちゃんと食べました?";
$word_9= "9時を過ぎました。";
$word_10="10時のおやつです。";
$word_11="11時を過ぎました。
もうすぐお昼ですね。";
$word_12="おひ〜る休みは
ウキウキウォッチ・・・。";
$word_13="1時を過ぎました。
お昼食べたら眠くなった?";
$word_14="2時を過ぎました。
ワイドショーの時間です。";
$word_15="おやつの時間です!";
$word_16="4時を過ぎました。
夕焼けこやけ〜の・・・";
$word_17="5時を過ぎました。
5時から男の時間です!";
$word_18="6時を過ぎました。";
$word_19="7時を過ぎました。
今夜のおかずは何かな?";
$word_20="8時を過ぎただよ。
全員集合!ちょっと古い?";
$word_21="今日はいいドラマが
あったかな?";
$word_22="10時を過ぎました。
オ・ト・ナの時間です。";
$word_23="テレホーダイ開始です。
混んできたかな?";
($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);