8 lines
176 B
Perl
8 lines
176 B
Perl
sub urldecode {
|
|
my $s = shift;
|
|
$s =~ tr/\+/ /;
|
|
$s =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/eg;
|
|
return $s;
|
|
}
|
|
|
|
print urldecode('http%3A%2F%2Ffoo+bar%2F')."\n";
|