[[Perl]] [[ファイル名sample0.cgi>http://nlp.kimura-s.otaru-uc.ac.jp/Perl/sample0.cgi]] +[[ファイル名sample0.cgi>http://nlp.kimura-s.otaru-uc.ac.jp/Perl/sample0.cgi]] #!/usr/bin/perl print "Content-type: text/html\n\n"; print "<html>\n"; print "<body>\n"; print "<form METHOD=GET action=\"./sample0.cgi\">\n"; print "<input size=\"30\" name=\"user\" value=\"\">\n"; print "<input TYPE=\"submit\" VALUE=\"送信\">\n"; print "</form>\n"; print "user -> " , $ENV{'QUERY_STRING'}, "\n"; print "</body>\n"; print "</html>\n"; ファイル名sample1.cgi +[[ファイル名sample1.cgi>http://nlp.kimura-s.otaru-uc.ac.jp/Perl/sample1.cgi]] #!/usr/bin/perl print "Content-type: text/html\n\n"; print <<EOF; <html> <body> <form METHOD=GET action="./sample1.cgi"> <input size="30" name="user" value=""> <input TYPE="submit" VALUE="送信"> </form> user -> $ENV{'QUERY_STRING'} </body> </html> EOF