Proxomitron Part3
>>209
最後の改行を忘れないでね。
#!/usr/local/bin/perl
($input_name, $url) = split(/=/, $ENV{'QUERY_STRING'}, 2);
$url =~ s/\+/ /g;
$url =~ s/%(..)/pack("c", hex($1))/ge;
print <<"_HTML_";
Content-type: text/html
<html>
<head>
<meta http-equiv="refresh" content="0; url=$url">;
</head>
</html>
_HTML_
最後の改行を忘れないでね。
#!/usr/local/bin/perl
($input_name, $url) = split(/=/, $ENV{'QUERY_STRING'}, 2);
$url =~ s/\+/ /g;
$url =~ s/%(..)/pack("c", hex($1))/ge;
print <<"_HTML_";
Content-type: text/html
<html>
<head>
<meta http-equiv="refresh" content="0; url=$url">;
</head>
</html>
_HTML_
|
|
|