misao全文検索

＞　 2000/04/08 (土) 06:08:03　 ▼　 ◇　 [mirai]
> なぁテキストフィールドに入力したアドレスにジャンプするPerlスクリプト
> 誰か書いてくれないか？ENVの受け取り方が良くわからんのだ

if($ENV{'REQUEST_METHOD'} eq 'POST') {
	read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
} else {
	$buf = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/,$buf);
foreach $pair (@pairs) {
	($name, $val) = split(/=/, $pair);
	$name =~ tr/[A-Z]/[a-z]/;
	$val =~ tr/+/ /;
	$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$FORM{$name} = $val;
}
print <<"__EOF__";
Content-type: text/html\n
<html><head><meta http-equiv="refresh" content="0; url=$$FORM{'text'}"></head></html>
<body>転送中。笑い</body></html>
__EOF__

参考：2000/04/08(土)06時04分28秒