forked from github/kensanata.oddmuse
16 lines
405 B
Perl
16 lines
405 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
sub UrlEncode {
|
||
|
|
my @letters = split(//,shift);
|
||
|
|
my @safe = ('a' .. 'z', 'A' .. 'Z', '0' .. '9', '-', '_', '.', '!', '~', '*', "'", '(', ')');
|
||
|
|
foreach my $letter (@letters) {
|
||
|
|
my $pattern = quotemeta($letter);
|
||
|
|
if (not grep(/$pattern/, @safe)) {
|
||
|
|
$letter = sprintf("%%%02x", ord($letter));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return join('', @letters);
|
||
|
|
}
|
||
|
|
|
||
|
|
print UrlEncode(join(' ', @ARGV)), "\n";
|