Proxomitron Part3

>>43
これなら絶対に大丈夫。

#!/usr/local/bin/perl
($input_name, $url) = split(/=/, $ENV{'QUERY_STRING'}, 2);
$url =~ s/\+/ /g;
$url =~ s/%(..)/pack("c", hex($1))/ge;

#!/usr/bin/perl
print "Location: $url\n\n";