I am calling a remote Perl service from a Perl script with the following code:
my $userAgent = LWP::UserAgent->new;
my $request = HTTP::Request->new();
$request->uri($buildManagerUrl);
$request->method("POST");
my $postData = "action=$action\¶ms=$callParamsJson";
my $content = encode("iso-8859-1", $postData);
$request->content($content);
$request->content_type("application/x-www-form-urlencoded");
my $response = $userAgent->request($request);
When I print out the request data, one of the fields in the embedded XML in the content is:
<password>XUvN+5R3</password>
Here's the code that retrieves the data sent above:
my $q = new CGI();
my %params = $q->Vars();
print Dumper($q);
However, when I look at the request in the Dumper output, the '+' in the data is being replaced by a space:
<password>XUvN 5R3</password>
I'm guessing I'm probably just using the wrong encoding, but I have no idea how to resolve this. Any ideas?