Foro - Perl en Español

Hola a todos, vuelvo al foro con un dilema que no he logrado resolver usando Google y algunos hilos del foro.

Me explico: Con el siguiente script:

Logro dividir y modificar distintas palabras bajo ciertas reglas dentro del archivo de entrada, pero, ahora, se me ha presentado la siguiente problemática: Si el archivo de entrada es así:

Deseo obtener un archivo de salida así:
Es decir, buscar en $cabeza si está la línea \graphicspath; si no está agregamos \graphicspath{{images/}} (con eso no tengo problema), y si está, agregamos {$imageDir/} al final.

En este último punto es donde tengo el problema: No he podido dar con la expresión regular adecuada para cazar \graphicspath{{a}{b}{c}} y agregar la linea que deseo al final.

Revisé en la red algo sobre expresiones recursivas e hice un par de intentos con algunas tomadas de problemas parecidos al mio en stackoverflow, pero no he logrado nada concreto, es más, me percaté de que el script falla en la línea 11 de mi archivo de entrada:
y recordé que hace algún tiempo hice el intento usando expresiones regulares y fallé por el mismo motivo, las llaves estilo {{}{}{}}.

Agradecido de antemano,
Pablo

En la siguiente versión verás que se puede hacer una exp. reg. que detecte esos casos de llaves incluidas unas dentro de otras, pero... para el caso de tcboxverb, es más complicado, ya que el contenido que puede ir entre llaves tiene un formato mucho más complicado que un simple conjunto de elementos embutidos entre llaves. Puede parecer lo mismo, pero no lo es.

Muchas gracias, explorer.

explorer escribiste:... para el caso de tcboxverb, es más complicado, ya que el contenido que puede ir entre llaves tiene un formato mucho más complicado que un simple conjunto de elementos embutidos entre llaves. Puede parecer lo mismo, pero no lo es.

Tienes razón, en un principio pensé que no era tan complicado si uno conocía las reglas de cómo se comportaría la cadena que deseaba buscar, en mi caso una llave de apertura siempre va emparejada con una llave de cierre así: {{}{}{}} o {{{}}} o así {{{}{}}{}}.

Hice intentos con varias expresiones que tomé de la red, como esta:

y claro, no funcionaban. El tema de los "paréntesis balanceados" es algo mucho más complicado de lo que parece. ¿Se necesitará un nuevo script para llevar a cabo la tarea? o (teóricamente hablando) ¿se puede agregar el código dentro de este mismo script?

Saludos.

En perlre o perlretut, no lo recuerdo bien, se comenta el caso de buscar expresiones con paréntesis embutidos, y se construye para el caso una exp. reg. recursiva, no muy diferente de la que has puesto, que no resulta muy complicada de entender.

Quizás, lo más importante que hay que saber, es qué puede haber dentro de las llaves de \tcboxverb{...}, y eso definirá qué es lo que hay que hacer o cómo tiene que ser la exp. reg.

Otras cosas también pueden ayudar, como por ejemplo saber si la línea donde está esto es única (solo existe la entrada \tcboxverb en una línea, y solo hay eso en una línea. Si se da este caso, encontrar la última llave es algo trivial

Leí la documentación en http://search.cpan.org/dist/POD2-ES/lib ... extendidos y busque por la red información del tema... y sí es complicado... Intenté con los ejemplos descritos y solo obtuve Infinite recursion in regex at.

Ahora estoy sumamente interesado en conocer la expresión regular exacta para estos casos y conozco como opera tcboxverb. Lo describo:

• La palabra siempre inicia con \, le sigue un [...] opcional y luego una llave de apertura { y una de cierre } como mínimo.
• Aparece siempre en una línea y dentro de ésta puede aparecer más de una vez, pero nunca tantas como 10, por ejemplo.
• Los caracteres incluidos dentro de {...} pueden ser cualquiera incluido {...} siempre y cuando estén emparejadas las llaves de apertura con las de cierre, {{}{}{}} o {{{}}{}} como caso extremo.

Lo que deseo es capturar las llave de apertura obligatoria { y la de cierre } obligatoria y buscar en todo ese bloque para hacer los cambios, no deseo extraer lo que está en cada {} dentro de los obligatorios.

Creo que esta expresión regular está muy por encima de mis conocimientos (momentáneamente) pero, la dificultad de ella la hace 100% interesante.

Saludos.

explorer escribiste:En perlre o perlretut, no lo recuerdo bien, se comenta el caso de buscar expresiones con paréntesis embutidos, y se construye para el caso una exp. reg. recursiva, no muy diferente de la que has puesto, que no resulta muy complicada de entender.

A mi se me hizo más complicada de lo que parecía En fin, encontré la solución. Al menos en los casos que he probado funciona correctamente
No logré hacerla funcionar dentro del primer while del script y es casi seguro que se puede optimizar y reducir un poco el código, pero, estoy conforme

Y como es habitual en mi persona, un par de consultas para cerrar el tema:
1. En una parte más adelante del script necesitaré la línea de \graphicspath{....}, ¿cómo la guardo para usarla más adelante?
2. Esta es más complicada: sé que puedo dividir el archivo usando en $cabeza deseo buscar la línea \usepackage{minted} o la línea \usepackage[...]{minted} y hacer dos cosas:
a) Si no están presentes [...] agregar [outdir=images/] y dejar la línea \usepackage[outdir=images/]{minted}, esta parte la puedo hacer con una expresión regular.
b) Si están presentes [...] buscar si está presente outdir=... si no está agregarlo al final (con la solución de más arriba creo que puedo hacerlo) y si está presente cambiar outdir=... a outdir=images, aquí es donde empieza mi dilema, la línea de entrada puede ser:
donde dir es una ruta absoluta o relativa a un directorio y al igual que con \graphicspath{....} deseo guardar la original para su posterior uso.

Agradecido,
Pablo.