8 lines
181 B
Perl
8 lines
181 B
Perl
sub urlencode {
|
|
my $s = shift;
|
|
$s =~ s/([^-A-Za-z0-9_.!~*'() ])/sprintf("%%%02X", ord($1))/eg;
|
|
$s =~ tr/ /+/;
|
|
return $s;
|
|
}
|
|
|
|
print urlencode('http://foo bar/')."\n";
|