Encoding ( ) in a url with perl

Elguapo · 05-05-2008, 04:11 PM

I am working on a re-write of an application and I have run into a bit of a snag when it comes to how I am formatting a url.

Currently I am using perl to facilate the data transfer between my servers and a RETS server. This is all done via a webservice. The uri syntax that I am required to use forces me to use () with in the uri.

IE

Code:

?SearchType=AGENT&Class=AGENT&Query=(UIDOFFICE=SCHW01+),(MLSSTATUS=A+)&Limit=NONE&Format=COMPACT-DECODED&QueryType=DMQL2

I have tried using URI::Escape, but this has gotten me no here. Anyone have an idea on how this can be done?

WebmastTroy · 05-06-2008, 12:12 PM

I'm not trying to do your homework, but I understanding the challenges of specifically working with a RETS server, so:

Quote:

#!/usr/bin/perl

%params = (
'SearchType' => 'AGENT',
'Class' => 'AGENT',
'Query' => '(UIDOFFICE=SCHW01+),(MLSSTATUS=A+)',
'Limit' => 'NONE',
'Format' => 'COMPACT-DECODED',
'QueryType' => 'DMQL2'
);

$build_query_string = "";
foreach $key (keys %params) {
$params{$key} =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
$build_query_string .= "$key=$params{$key}&";
}

print $build_query_string;

Should get back something like:

Query=%28UIDOFFICE%3DSCHW01%2B%29%2C%28MLSSTATUS%3DA%2B%29&QueryType=DMQL2&Limit=NONE&Class=AGENT&Se archType=AGENT&Format=COMPACT%2DDECODED&

osor · 05-06-2008, 01:43 PM

The parentheses have special meaning in URIs which is why they’re not escaped by default with uri_escape(). You can, however, force this to happen by specifying a second parameter to uri_escape() manually. Also, you might try using Data::URIEncode or by using POST instead of GET.