Changeset 16672 for gsdl/trunk/perllib/unicode.pm

Timestamp:

2008-08-07T13:52:36+12:00 (16 years ago)

Author:

ak19

Message:

URL encode and URL decode subroutines added.

File:

• gsdl/trunk/perllib/unicode.pm (modified) (2 diffs)

gsdl/trunk/perllib/unicode.pm

@@ -544 +544 @@
 }
 
-
 # Returns true (1) if the given string is utf8 and false (0) if it isn't.
 # Does not modify the string parameter.
@@ -577 +576 @@
 }
 
+sub url_encode {
+    my ($text) = @_;
+    $text =~ s/([^A-Z0-9\.\-\_])/sprintf("%%%02X", ord($1))/iseg;
+    # URL_encode spaces too?
+    #$text =~ s/ /%20/sg;
+    return $text;
+}
+
+sub url_decode {
+    my ($text) = @_;
+
+    $text =~ s/\%([A-F0-9]{2})/pack('C', hex($1))/ige;
+    return $text;
+}
+
 sub substr
 {