04/10/19 21:06:26
>>169
#!/usr/local/bin/perl
$req = $ENV{'QUERY_STRING'};
$req = 'http://' . $req if(! /^http:\/\// ); #http://で始まるURL対策
print >>"HTML";
Content-type: text/html
<html>
<head>
<title>ジャンプ</title>
</head>
<body>
<p><a href="$req">$req</a><br>
ｼﾞｬﾝﾌﾟします。良ければリンクをクリックしてください。</p>
</body>
</html>
EOM
exit;
まで最適化。