Foro - Perl en Español

Buenas, tengo una duda, como todos xD : necesito ir comprobando varias input de una URL; ejemplo:



Donde las input son id=1, cat=1 y ver=1, pues lo que quiero automatizar es agregarle algo, o sea, ir agregándoselo input por input, ejemplo:



Espero que se me pueda entender...

Saludos.

¿Qué significa "comprobar"?

Verificar; revisar o analizar alguna cosa para confirmar o corroborar su veracidad, existencia o exactitud.

http://es.wiktionary.org/wiki/comprobar

Sí, pero la pregunta es porqué quieres hacer eso... porque quizás se pueda resolver de otra forma mucho más cómoda que no modificando la URL.


En este código usamos una expresión regular para buscar la posicion de cada '&', y con la ayuda de la función substr() con 4 parámetros, 'metemos con calzador' lo que queremos $agregar dentro de la $nueva_url que queremos comprobar().

Después del bucle, tenemos que comprobar() el último caso: el de $agregar lo que queremos al último parámetro de la $url original.

Gracias, explorer, pero lo único que no entendí fue la función pos de la línea 15.

pos() devuelva la posición en donde encontró el patrón de búsqueda.

Más información en perldoc perlre.

oka grax, pero lo que busco es que se lo adapte a cualquier número de query, o sea.

Se podría crear una subrutina que reciba la URL y luego ubique los input y le agregue hola al final de cada input.

Ejemplo: tendría las siguiente dos URL.



Si se necesita ocupar algún módulo, no hay problema.

Saludos.

Pero si lo tienes hecho ya... solo tienes que hacer un bucle...

Al parecer no me entendiste; mira, lo explico mejor.

Tengo una URL almacenada en una variable, y tengo una función; le aplicaré la función a la variable para que me tire 'hola' después de cada input, o sea, que me imprimirá 'hola' después de cada input.



Salida:


Saludos, espero que se haya comprendido...

Pues entonces la solución es igual que antes... una expresión regular: