URI::Encode (3pm)

    # OOP Interface
    use URI::Encode;
    my $uri     = URI::Encode->new( { encode_reserved => 0 } );
    my $encoded = $uri->encode($data);
    my $decoded = $uri->decode($encoded);

    # Functional
    use URI::Encode qw(uri_encode uri_decode);
    my $encoded = uri_encode($data);
    my $decoded = uri_decode($encoded);

This modules provides simple \s-1URI\s0 (Percent) encoding/decoding

The main purpose of this module (at least for me) was to provide an easy method to encode strings (mainly URLs) into a format which can be pasted into a plain text emails, and that those links are 'click-able' by the person reading that email. This can be accomplished by \s-1NOT\s0 encoding the reserved characters.

This module can also be useful when using HTTP::Tiny to ensure the URLs are properly escaped.

If you are looking for speed and want to encode reserved characters, use URI::Escape::XS

See this script <https://github.com/mithun/perl-uri-encode/raw/master/.author/benchmark.pl> for a comparison on encoding results and performance.

\fInew()\fP

Creates a new object, no arguments are required

my $encoder = URI::Encode->new(\%options);

The following options can be passed to the constructor

encode_reserved

my $encoder = URI::Encode->new({encode_reserved => 0}); If true, \*(L"Reserved Characters\*(R" are also encoded. Defaults to false.

double_encode

my $encoder = URI::Encode->new({double_encode => 1}); If false, characters that are already percent-encoded will not be encoded again. Defaults to true. my $encoder = URI::Encode->new({double_encode => 0}); print $encoder->encode('http://perl.com/foo%20bar'); # prints http://perl.com/foo%20bar This method encodes the \s-1URL\s0 provided. The $url provided is first converted into \s-1UTF-8\s0 before percent encoding. Options set in the constructor, or defaults, can be overrided by passing them as the (optional) second argument. Options passed must be a hashref.

$uri->encode("http://perl.com/foo bar"); $uri->encode( "http://perl.com/foo bar", { encode_reserved => 1 } ); This method decodes a 'percent' encoded \s-1URL\s0. If you had encoded the \s-1URL\s0 using this module (or any other method), chances are that the \s-1URL\s0 was converted to \s-1UTF-8\s0 before 'percent' encoding. Be sure to check the format and convert back if required.

$uri->decode("http%3A%2F%2Fperl.com%2Ffoo%20bar");

The following functions are exported upon request. This provides a non-OOP interface

Reserved Characters

The following characters are considered as reserved (\s-1RFC\s0 3986 <http://tools.ietf.org/html/rfc3986>). They will be encoded only if requested.

! * ' ( ) ; : @ & = + $ , / ? # [ ]

Unreserved Characters

The following characters are considered as Unreserved. They will not be encoded

a-z A-Z 0-9 - _ . ~

Encode

Gisle Aas for URI::Escape

David Nicol for Tie::UrlEncoder

\s-1RFC\s0 3986 <http://tools.ietf.org/html/rfc3986>

URI::Escape

URI::Escape::XS

URI::Escape::JavaScript

Tie::UrlEncoder

Please report any bugs or feature requests to \*(C`[email protected]\*(C', or through the web interface at http://rt.cpan.org/Public/Dist/Display.html?Name=URI-Encode <http://rt.cpan.org/Public/Dist/Display.html?Name=URI-Encode>

Mithun Ayachit \*(C`[email protected]\*(C'

Copyright (c) 2012, Mithun Ayachit. All rights reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.