Foro - Perl en Español

Hola, tengo un problema con pack(). Estuve ejecutando este código:
pero no me reconoce los %... es decir, en vez de convertirlo a %25, los deja como está... ¿es un error mío o de la librería? ¿existe otra forma de solucionarlo...? Estoy usando Perl 5.8.5...

Saludos y desde ya muchas gracias.

Bienvenido a los foros de Perl en Español, hsendoa.

Estás pasando de %25 al carácter que representa.

Tienes algo parecido en el documento perlfaq9, en la pregunta How do I decode or create those %-encodings on the web? Lo tienes resuelto con la función chr(), también.

Así, hex(25), se transforma en el carácter número 37, que es, en el alfabeto Latin1, el carácter '%'.

Gracias explorer. Lo estaré probando.

A modo de comentario te explico: yo obtengo un string de ENV{CONTENT_REQUEST}. Le saco los espacios: $value =~ tr/+/%20/;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
Luego hago un split() partiendo en clave, valor y lo guardo en @algo.



pero el producto de eso me parsea bien los espacios y los signos como "'", "<" y ">" pero tiene un defecto (o sea, no parsea), los "%", "$", "#", "@", etc...

Me estaré fijando en tus sugerencias.

Me alegro mucho de estar formando parte de esta comunidad. Y estaremos aportando lo poco que sabemos para poder aprender...

Saludos.

Es muchísimo más cómodo usar el módulo CGI.

Echa un vistazo, como ejemplo, a mi CGI mínimo.

Te ahorrarás distinguir entre sí es una petición GET, o PUT, escapar caracteres, dividir los parámetros, etcétera.

Definitivamente, es más cómodo... pero tengo una implementación ya hecha... modificarla sería hacer cambios muuuuy grandes...