- 96 名前：nobodyさん mailto:sage [2006/07/16(日) 17:56:28 ID:???]
- え！？じゃあ
#!usr/local/bin/perl
use CGI;$q = CGI->new;$q->param;die($q->cgi_error) if ($q->cgi_error);
print "Location:pc8.2ch.net/test/read.cgi/hp/",$q->param('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ですか？
