Foro - Perl en Español

Hola
El problema es que estoy haciendo un script que llame a una url y le envie unos datos, funcionar funciona, pero el problema es cuando algunos de los datos que envio lleva un espacio, es decir si mando una variable con espacios no se me envian. Este es el codigo que estoy utilizando

Código: Seleccionar todo

$parametros_llamada="variable=sirwallo envia datos"
my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content($parametros_llamada);
my $response_web = $ua->request($req);
my $content_xml = $response_web->content();


Si envio esto en la otra pagina llegan los datos de la variable sin espacios.


Un saludo y gracias

Ya he conseguido solucionarlo lo he solucionado codificando los datos a enviar, para ello he utilizado una funcion que codifica.

Código: Seleccionar todo

#funcion que codifica la url
sub URLEncode {
    my $theURL = $_[0];
    my $MetaChars = quotemeta( ';,/?\|=+)(*&^%$#@!~`:');
   $theURL =~ s/([$MetaChars\"\'\x80-\xFF])/"%" . uc(sprintf("%2.2x",         ord($1)))/eg;
   $theURL =~ s/ /\+/g;
   return $theURL;
}

y en la url tambien indico que codificacion que estoy utilizando

Código: Seleccionar todo

my $req = HTTP::Request->new(POST => $url_consulta);
my $query="encoding=UTF-8&b=".&URLEncode($cgi->param('url_boja'))."&buscar=buscar";
$req->content_type('application/x-www-form-urlencoded');
$req->content($query);


Bueno si alguien tiene alguna idea de hacerlo de otra manera que sea mejor?

Un saludo y gracias

Hola:

También si lo deseas existe el módulo URI::Escape que te codifica los valores en base a RFC 2732 para que puedas pasar tus valores por medio de urls sin problemas.

Como ves en Perl tienes varias maneras de lograr una misma cosa, solamente es cuestión de que decidas cual es la mejor para tu caso.

Saludos