Foro - Perl en Español

Hola, estoy haciendo un script que genera palabras para formularios POST.
El problema es que los genera en una variable normal. Un ejemplo de cómo
queda es así:



Soy consciente de que sacando qq() el método POST lo va hacer bien pero
el generador que estoy haciendo deja así los datos porque cuando printeo se muestra
tal cual está encerrado en qq() pero en realidad no usa qq() porque es una demostración de que no puedo convertir la variable. Lo que necesito es: cómo puedo transformar dicha variable para que el método POST lo vea como un hash.

Por medio del POST, sí que puedes enviar una representación binaria de una estructura de datos... pero... es casi imposible que esa estructura sea regenerada en el receptor, ya que no coincidirán las direcciones virtuales de las referencias de las diversas estructuras con las estructuras de referencias de las direcciones virtuales del receptor (solo tienes que ejecutar varias veces un programa que vuelque un hash para comprobar que la dirección que hay dentro de HASH(...), cambia).

Lo que se hace en estos casos, es serializar la estructura, para que sea fácil su transporte y fácil su reconstrucción en destino.

Pero entonces , ¿ cómo soluciono esta pesadilla ?

¿ No hay otra forma de enviar los datos con post para que mi variable sea aceptada ?

No entiendo muy bien el problema, teniendo tu hash:



¿Quiéres enviar el hash tal cual por medio de post para que el receptor lo reciba como una variable hash? ¿O quiéres enviarlo de manera que cada llave del hash sea representado como un campo en el POST (probar=test&probarx=et&control=mandar)?

Un poco de la primera pero mas de de la segunda pregunta.

Bueno si quieres enviar el hash como está, tal y como te decía Joaquin, tienes que serializarlo, para ello tienes varias opciones, por ejemplo JSON, con lo que harías:



Y luego en a.cgi:



Ahora, si deseas enviar cada llave como un campo, es simple cuestión de modificar un poco tu código:

Perdón por tanto lío, pero necesito una solución que utilice los módulos
por defecto.

El código en realidad es este



En realidad lo puse en una variable común porque después quería reemplazar los valores de
los inputs por cada palabra de un array.
Viendo el código solo me falta el método POST.

¿ No encuentran alguna solución ?

Los problemas que dicen "necesito una solución que utilice los módulos por defecto", me dan mucha pereza, porque eso indica que el programador no entiende lo que significa Perl. Con WWW::Mechanize se puede resolver un problema como el que planteas, en la tercera parte de las líneas que has escrito.

En cuanto a tu problema...

En la línea 91, el método post() necesita que el segundo argumento sea una referencia a un hash o un array, pero en realidad, estás haciendo una salvajada (convertir una cadena de caracteres que se ha construido en las líneas 38 a 48, en una referencia a un hash... y que además se lo pasas al método como una referencia a un array).

Lo que tienes que hacer es no usar una variable escalar, sino un array o un hash para guardar la información, y luego le pasas la referencia a esa variable al método post().

Las líneas 32, 34, 35, 38 y 41 a 48 se deben transformar en líneas que "construyan" ese hash o array.

Quizás te sea más fácil crear el array: solo tienes que guardar pares "nombre" / "valor" de lo que quieres enviar por el método POST.

Perdón si me equivoco pero el orden del array que debería hacer debe quedar así



Estoy seguro que no es así

Tiene razón Joaquín, tienes que construir un array o un hash, en vez de crear una cadena, lo que estás queriendo hacer es pasar una cadena al post() en vez de pasar correctamente un array o hash.