△▲ WebProg 初心者の質問 pert14▲△

△▲ WebProg 初心者の質問 pert14▲△ at PHP

93:nobodyさん
06/07/16 17:47:19
>>92
#!usr/local/bin/perl

use CGI;$q = CGI->new;$q->param;die($q->cgi_error) if ($q->cgi_error);
print "Location:URLﾘﾝｸ(pc8.2ch.net)('num'),"/l50\n\n" if ($q->param('hair') eq 'hage');
print <<HTML;
Content-type: text/html

<form method="POST" script="$ENV{'SCRIPT_NAME'}"><input type="hidden" name="hair" value="hage">
<input type="text" name="num"><input type="submit" value="ぬるぽ"></form>
HTML

次ページ

続きを表示

1を表示