くだすれPerl（超初心者用）

くだすれPerl（超初心者用） at PHP

267:nobodyさん
07/07/23 11:42:52
>>259

#!/usr/local/bin/perl
use CGI qw(:standard);#CGIでのパラメタ受け取り等を簡単に扱うためのもの
use strict;

my$url=sample.cgi; #これ自身のファイル名にしておく

my$name = param('name'); #フォームからの名前投稿をパラメタとして受け取り

#　以下、投稿フォーム。
#form action="$url" は、submitボタンを押した時に飛ぶ場所
#name="name" は、パラメタ名

print my$a= <<EOM;
Content-type: text/html\n\n
<html><head>
</head><body>
<form action="$url" method="POST">
名前<input type="text" size=10 maxlength="7" name="name"><br>
<input type="submit" value="投稿" name="toukou"></form><hr>
EOM

#　以下、表示。
#もしも$nameがあれば(パラメタとしてでも$nameを受け取っていれば)$nameを表示
if($name){
print$name;
}

次ページ

続きを表示

1を表示