Perl/CGIを利用したGET方式
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
[[Perl]]
+[[ファイル名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>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
終了行:
[[Perl]]
+[[ファイル名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>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
ページ名: