フレームの練習 4/13

#! /usr/local/bin/perl # # フレーム画面の練習 # id=ftest.cgi # # update. 98.4.13 #　日本語コード変換ライブラリ(v2.0)の指定 # &ReadParse命令で、$in{ }の変数にフォーム入力データが格納される $reload = 'http://www0.kumagaya.or.jp/cgi-bin/users/chichibu/ftest.cgi'; $bkhmpg = "http://www.kumagaya.or.jp/~chichibu/cgi1.html"; require 'cgi-lib.pl'; require 'jcode.pl'; &ReadParse; print "Content-type: text/html\n\n"; print < フレームの練習 4/13 EOM # 表示画面の選択 if ($in{'action'} eq "l") { &left } elsif ($in{'action'} eq "r") { &right } elsif ($in{'action'} eq "u") { &under } elsif ($in{'action'} eq "lr") { &lr } elsif ($in{'action'} eq "ru") { &ru } elsif ($in{'action'} eq "lru") { &lru } else { &lru } exit; # 左側の表示 sub left { print ''."\n"; print '左側'."\n"; print '
'; print "戻る（この画面内で）\n"; print '

'; print "戻る（全体表示）\n"; print ''."\n"; } # end of left # 右側（メイン） sub right { print ''."\n"; print '右側'."\n"; print '
'; print "３画面表示\n"; print '

'; print "左右２画面\n"; print '

'; print "上下２画面\n"; print '

'; print "戻る（この画面内で）\n"; print '

'; print "戻る（全体表示）\n"; print ''."\n"; } # end of right # 下側 sub under { print ''."\n"; print '下側'."\n"; print '
'; print "戻る（この画面内で）\n"; print '

'; print "戻る（全体表示）\n"; print ''."\n"; } # end of under ###################### #　最初の３画面表示 # ###################### sub lru { print ''; print "\n"; print ''; print "\n"; print "\n"; print ''; print ''; print ''."\n"; } # end of lru ###################### #　左と右　画面表示 # ###################### sub lr { print ''; print "\n"; print "\n"; print ''; print ''."\n"; } # end of lr ###################### #　右と下　画面表示 # ###################### sub ru { print ''; print "\n"; print "\n"; print ''; print ''."\n"; } # end of ru ################## end of script ##################