Foro - Perl en Español

No acabo de entender el problema.

Si lo que quieres es codificar los valores que extraes de un fichero de texto para pasarlo a un formulario, necesitas pasar esos valores por una función de escapado para convertirlo a un URI:

Código: Seleccionar todo

perl -MURI::Escape -le '$x=q(<font color="red">); print uri_escape($x)' # %3Cfont%20color%3D%22red%22%3E

Si quieres hacer el proceso inverso, leer de ficheros de texto unos URI y parsearlos, puedes intentar hacer algo como esto:

Código: Seleccionar todo

    1 #!/usr/bin/perl -l
    2 use warnings;
    3 use strict;
    4
    5 my $texto = "campo1=rata&nombre=alberto+castillo&taghtml=%3Cfont%20color%3D%22red%22%3E";
    6
    7 my @items = split "&", $texto;
    8 foreach my $item ( @items ) {
    9     my ( $var, $value ) = split "=", $item, 2;
   10
   11     $value =~ s/\+/ /g;
   12     $value =~ s/%(..)/chr(eval "0x$1")/ge;
   13
   14     print "$var => $value";
   15 }

sale

Código: Seleccionar todo

campo1 => rata
nombre => alberto castillo
taghtml => <font color="red">

De todas formas... todo eso ya está hecho en forma de módulos:

Código: Seleccionar todo

use Data::Dumper;
use CGI;
$query = new CGI(qq(campo1=rata&nombre=alberto+castillo&taghtml=%3Cfont%20color%3D%22red%22%3E));
print Dumper $query->Vars;

sale

Código: Seleccionar todo

$VAR1 = 'campo1';
$VAR2 = 'rata';
$VAR3 = 'nombre';
$VAR4 = 'alberto castillo';
$VAR5 = 'taghtml';
$VAR6 = '<font color="red">';

Te aconsejo que uses el módulo CGI ya que, como ves en el segundo ejemplo, lo que recibe desde el formulario es automáticamente convertido al texto original escrito por el usuario.

Si quieres usar el truco del split, fíjate en el primer ejemplo. Primero hacemos un split con el carácter '&' para separar cada uno de los pares etiqueta-valor y luego, por cada uno de esos pares, usamos la función split con un tercer parámetro, que es un '2', para que sólo parta el par por el primer '='. De esa forma no tiene en cuenta el resto de '=' que posiblemente existan en el lado del valor.