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

くだすれPerl（超初心 ..

268:nobodyさん
07/07/23 12:05:29
アンカミスった
>>259でなく>>258。

上はただのパラメタの使い方。

フォームを
<form action="$url" method="POST">
<input type=radio name=seibetu value otoko >
<input type=radio name=seibetu value onna >
<input type=submit value=投稿>
</form>
とすれば、投稿ボタンが押されたときに$urlのURLに飛んで、パラメタ名seibetuにotokoかonnaを入れて渡すことが出来る。

受け取り側は
my$seibetu = param('seibetu');#パラメタ受け取り

if($seibetu eq otoko){
#パラメタがotokoだった場合の処理
}
elsif($seibetu eq onna){
#パラメタがonnaだった場合の処理
}

デバッグしてないから文法ミスがあるかもしれないが、こんな感じで

次ページ