Foro - Perl en Español

Hola, por favor, si alguien me puede ayudar con esto lo agradecería mucho.

Lo que quiero hacer es incrementar una variable o imprimir algo solo si la expresión regular me reconoce un patrón. Ejemplo:



Probé con eso pero no me anda, o sea, que solo si me reconoce "hola mundo hola" me imprima "casa" y me incremente $cant, pero no me funciona,
¿cómo lo puedo hacer?

Gracias.

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

Pues el caso es que a mí sí que me funciona:

Código: Seleccionar todo

explorer@portatil:~/Documents/Desarrollo> perl -le '$_="hola mundo hola";$cant=1;/(.*?)\smundo\s\1(?{print "casa";$cant++;})/;print $cant'
casa
2

Actualización: Humm... me parece que ya entiendo el problema... El caso es cómo construir la expresión regular para que detecte dos palabras iguales alrededor de la palabra 'mundo'. Es algo complicado, porque falta más información, pero una primera solución puede ser sustituyendo el '(.*?)' por un '(\w+)'. Es decir, en vez de capturar cualquier cosa, intentamos capturar una palabra entera.

Pero esto no garantiza que capturemos una palabra entera que coincida con la segunda. Por ejemplo, $_="hol mundo hola"; pasaría el test, ya que la primera palabra está incluida en la segunda.

Amigo explorer, muchas gracias por responder, pero el problema que tengo es que quiero imprimir e incrementar dentro de la expresión regular (dentro de //), o sea , hacer algo así:



y que después del último paréntesis yo pueda seguir reconociendo otro patrón o comprobar el mismo si esta duplicado y pueda contar todas las veces que está duplicado:

Vaya, ¿ sí te funciona ?, qué extraño que a mi no, ¿ y cuál sería la función del signo "?" aquí : (?{print "casa";$cant++;})? que haga lo que está entre "{" y "}" solo si reconoce este patrón (.*?)\smundo\s\1.

digamos que tengo esto :



y quiero contar la cantidad de a's y de b's que tengo, la unica opcion es hacerlo con una expresion de este estilo : no?

esto imprimiria;
3
2

Yo creo que te estás complicando un poco...


(Sacado de perlfaq4, How can I count the number of occurrences of a substring within a string?)

¿O es imprescindible hacerlo todo con solo una expresión regular?

Creo que es necesario hacerlo con una sola expr. regular porque en el ejemplo anterior

yo quiero contar los caracteres repetidos pero yo no sé qué caracteres son, o sea, yo no sé si son 'a', 'b', u otro carácter.

explorer, muchas gracias por tus respuestas y tu tiempo.

Bueno, pues los contaremos a lo bruto: