Help for this page

Select Code to Download

Select or download this

my $query_str = join('&', map("@{[CGI->escape($_)]}=@{[CGI->escape(par
+am($_))]}", qw(foo bar baz));
print "http://www.foo.com/cgi-bin/foo.pl?$query_str";

Select or download this

my $uri_query = URI::Query->new('http://www.foo.com/cgi-bin/foo.pl');
foreach ( qw( foo bar baz ) ) {
    $uri_query->set_param($_, param($_));
}
print $uri_query->as_string();