#! /usr/local/bin/perl # # id=cgi4_1.cgi # # ＣＧＩでできること画面１ # update. 97.12.11 # このＣＧＩ自身をリロードさせるときのディレクトリ指定 $reload = 'http://www0.kumagaya.or.jp/cgi-bin/users/chichibu/cgi4_1.cgi'; # ３つの画面をランダムにだす（ブラウザの更新（リロード）をクリックすると画面が変わるよ） @t=(1,2,3); srand; if ($t[rand(@t)] == 1) { &html1; } elsif ($t[rand(@t)] == 2) { &html2; } else { &html3; } ## ここでメインルーチン終了 # HTML出力　 sub html1 { print "Content-type: text/html\n\n"; print < ＣＧＩおもちゃ箱 ４.1 EOM # EOMの下は１行あける print '


'; print '
例えば、時刻を表示することができます。


'."\n"; print '
（戻る）
'."\n"; print '


'; # 今日 ($byo,$fun,$ji,$dd,$mm,$yy,$yb) = localtime; # 月補正 $mm++; # 曜日を漢字で @yobitb=('日','月','火','水','木','金','土'); $yobi=$yobitb[$yb]; print '
'; print "現在　$yy年$mm月$dd日（$yobi）$ji時$fun分$byo秒です。\n"; print '
'; print '

'; print '
'; print "また、時刻に応じてメッセージを変えることもできます。"; print '
'; print '

'; print '
'; if ($ji >= 0 && $ji < 2) { print "こんばんわ．．もう遅いよ"; } elsif ($ji >= 2 && $ji < 4) { print "ここまできたら、朝までがんばろう"; } elsif ($ji >= 4 && $ji < 7) { print "おはよう．．まだ眠くない？"; } elsif ($ji >= 7 && $ji < 11) { print "さあ、今日もがんばるか"; } elsif ($ji >= 11 && $ji < 15) { print "こんにちわ"; } elsif ($ji >= 15 && $ji < 18) { print "今日も１日、お疲れさまでした。"; } elsif ($ji >= 18 && $ji < 20) { print "夕飯、おいしかった？"; } else { print "こんばんわ．．夜はこれから．．"; } print '
'; print '


'; print '
'."\n"; print ''."\n"; print '
'; print ''; print ''; } # end of sub # HTML出力　 sub html2 { print "Content-type: text/html\n\n"; print < ＣＧＩおもちゃ箱 ４.2 EOM print '


'; print '
例えば、メールで送ることができます。


'."\n"; print '
（戻る）
'."\n"; print 'あなたのお名前は？
' . "\n"; print '
'; print 'メールアドレスは？
' . "\n"; print '
'; print 'コメントをどうぞ'; print '
'; print '' . "\n"; print '

'; print '
' . "\n"; print '　　

' . "\n"; print '

'; print ''; print ''; } # end of sub # HTML出力　 sub html3 { print "Content-type: text/html\n\n"; print < ＣＧＩおもちゃ箱 ４.3 EOM # EOMの下は１行あける print '


'; print '
例えば、．．．．．


'."\n"; print '
（戻る）
'."\n"; print '


'; print '
'; print 'この続きは、スクリプト集を見て下さい。'; print '
'; print '


'; print '
'."\n"; print ''."\n"; print '
'; print ''; print ''; } # end of sub ################## end of script ##################