06/07/16 17:56:28
え！？じゃあ
#!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
これ全部CGIですか？