I think you are just trying to construct the query segment of a URI, probably for a GET request. You probably intend to attach it to a base URI. May as well do both at the same time:

You could use a URI object:

use URI;

my %params = ( name => 'josh', age => 26 );

my $uri = URI->new('http://www.example.com');
$uri->query_form(%params);

print "$uri\n";

__END__
__OUTPUT__

http://www.example.com?name=josh&age=26
[download]

Or you could construct the query param list without attaching it to a base URI by using URI::QueryParam like this:

use URI::QueryParam;
use URI;

my %params = ( name => 'josh', age => 26 );

my $u = URI->new;
$u->query_param($_, $params{$_}) for keys %params;

print $u->query, "\n";

__END__
__OUTPUT__

name=josh&age=26
[download]

Either construct handles proper escaping of embedded metacharacters for you automatically. And both of these examples use components of the same URI distribution, on CPAN.

The documentation for URI::Escape says it expects a string, not a parameter list. Its purpose is to percent encode reserved characters.

perl -MURI::Escape -e 'print uri_escape("10% is enough\n"), "\n"'
[download]

bugup401:

If you'd check the docs you'd see that it doesn't take an arbitrary structure as an argument, it wants a string. So you might try giving it the string you want escaped, and see if that works for you.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

"#output: name=josh&age=26"

I get

name
[download]

Take another look at the documentation, uri_escape expects a string. Had you provided:

my $str = '(name=>"josh",age=>26)';
print uri_escape( $str );
[download]

The output would be:

%28name%3D%3E%22josh%22%2Cage%3D%3E26%29
[download]

cool, i got it bt why the output is %28name%3D%3E%22josh%22%2Cage%3D%3E26%29

why not name=josh&age=26

Because that is what you asked for. %28 is (, %29 is ). If you do not do so, &age= is illegal in HTML. You'd want &age= there.


Enjoy, Have FUN! H.Merijn

use CGI;
print CGI->new( { name=>"josh",age=>26 } )->query_string;
__END__
name=josh;age=26
[download]

use CGI::Enurl;

print enurl ({name=>"josh",age=>26});
[download]