>>169を最適化



#!/usr/local/bin/perl

$req = $ENV{'QUERY_STRING'};
$req =~ s/^/http:\/\//g;
if($req =~ /\w+\.\w+/){
print "Content-type: text/html\n\n";
print <<EOT
<html>
<head>
<title>ジャンプ</title>
</head>
<body>
<a href="$req">$req</a>
</body>
</html>
EOT
}else{
print "Content-type: text/html\n\n";
print <<EOT
ERROR
EOT
}
exit;