＞　 2000/08/30 (水) 19:15:44　 ▼　 ◇　 [mirai]
> ﾘﾀﾞｲﾚｸﾄ.cgiのソースｷﾎﾞﾝ(´Д`)

手持ちのから最小部分をコピーしたよーヽ(´ー｀)ノ

$u = $ENV{"QUERY_STRING"};
$u =~ s/%([a-zA-Z0-9][a-zA-Z0-9])/pack("C", hex($1)/ego;
print <<END;
Content-Type: text/html

<html>
<head>
<title>redirect</title>
<meta http-equiv="refresh" content="0; URL=$u">
</head>
<body>
You will be redirected to: $u
</body>
</html>
END

参考：2000/08/30(水)19時07分16秒