#!/usr/local/bin/perl require 'libcgi.pl'; $title = "フォームのサンプル(文字列入力)"; @data = ( "データ00", "データ01", "データ02"); # URL decode &decode_form(); # FROM入力モード (key/val) $mode = $FORM{'mode'}; &head_html(); if ($mode eq 'val') { $in_val = $FORM{'in_val'}; &out_html(); } else { &in_html(); } &foot_html(); exit(0); sub head_html { print "Content-type: text/html\n\n"; print "$title\n"; print "\n"; print "

$title

\n"; } sub in_html { print "

入力テキスト

\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "

選択入力テキスト

\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "

ラジオボタン

\n"; print "
\n"; print "\n"; foreach $data (@data) { if ($check eq '') { print "$data\n"; $check = 'checked'; } else { print "$data\n"; } } print "\n"; print "
\n"; } sub out_html { print "

出力テキスト

\n"; print "val = $in_val
\n"; } sub foot_html { print "

\n"; print "このCGIのソース:\n"; print "form01.cgi\n"; print "libcgi.pl
\n"; print "
データ形式:
\n"; print "\n"; print "\n"; foreach $data (@data) { print "\n"; } print "
val
$data
\n"; print "\n"; }