Free CGI Perl PHP Script Olive Design CGI

CGIへフォーム内容を渡すスクリプト その2

cgi-lib.plを使用しないで表示します。

ファイルform02.htmlとform02.cgiを作成して下のソースをそれぞれ貼り付けます。

form01.cgiのパーミションを755に変更します。

form02.html

<html><head><title>名前の問い合わせ</title></head>
<body>
<h3>あなたのお名前を教えてください。
<form method=get action="form02.cgi">

入力（ローマ字）=>
<input type=text name="yourname">
<input type="submit" value="送信">
</form>
</body>
</html>

ソース form02.cgi

#!/usr/bin/perl

#フォームからデータ「yourname=○○○」を読み取り、
#読み込んだデーターを$inputに代入
$input = $ENV{ 'QUERY_STRING' };

#$inputから文字列をsplitで分解（=を削除）して$yournameと$nameに代入
($yourname,$name) = split /=/, $input;

#--nameデータのデコード処理
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

#htmlを表示
print "Content-type: text/html\n\n";
print "<html><body>\n";
print "こんにちは<b>${name}</b>さん\n";
print "</body></html>\n"
__END__
Perl PHP Free CGI Script OliveDesign CGI

Perl PHP Free CGI Script OliveDesign CGI

プライバシーポリシー / 特定商取引法に基づく表示