Data commit

Task/URL-encoding/Perl/url-encoding-1.pl

@@ -0,0 +1,8 @@
+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";

Task/URL-encoding/Perl/url-encoding-2.pl

@@ -0,0 +1,4 @@
+use URI::Escape;
+
+my $s = 'http://foo/bar/';
+print uri_escape($s);

Task/URL-encoding/Perl/url-encoding-3.pl

@@ -0,0 +1,6 @@
+use 5.10.0;
+use CGI;
+
+my $s = 'http://foo/bar/';
+say $s = CGI::escape($s);
+say $s = CGI::unescape($s);