LWP params Best practice 1

[Corwinsw]

Hi.
Can you tell me what is the best practice to compose and escape params, when using LWP.
Currently I am doing that:

   my $params     = shift;

   my $params_as_str;
   if ( ref $params eq 'HASH' && $params ) {
      foreach my $k ( keys %{$params} ) {
         $params_as_str .= "$k=$params->{$k}&";
      }
      chop $params_as_str;
   }

which is really ugly and I have forgotten to escape the params(I think that there is a way automatically to do that).

Corwin

 

[Kirsle]

use URI::Escape;

my $data = {
	username => 'soandso',
	password => 'big secret',
	hashcode => 'fdsfsdfsdfdfds87f6s8df6',
};

my @fields = ();
while (($key,$value) = each %{$data}) {
	push (@fields,join('=',$key,uri_escape($value)));
}
my $params = join ('&',@fields);

print "$params\n";

 

[Corwinsw]

$uri = URI->new( $url );
$uri->query_form( $query_params );
my $req = HTTP::Request->new( POST=>$uri );
$ua->request($req);

Where the $query_params is a hash reference with the names and values of the params.

Corwin

 

[Kirsle]

Well, that sure beat my solution.