Foro - Perl en Español

Hola de nuevo, estoy intentando hacer unas modificaciones para que elimine la siguiente lista de palabras:
pero, que no elimine la palabra pst-exa, pensé en añadir pst-\w en $PALABRAS, claro que, al usar pst-\w también cazará pst-exa la cual no deseo que elimine. Y aquí va la consulta, ¿cómo defino una expresión regular en $PALABRAS para que elimine lo que deseo, pero, añada esta excepción?

Saludos,
Pablo

Pon todas las palabras como alternativas (separadas por '|') en el patrón de $PALABRAS:

my $PALABRAS = qr/\b (?: pst-algo\d+ | pstricks (?: -add )? | psfrag | auto-pst-pdf | graphicx | pst-graphicx | pst-barcode | pst-tvz ...

Ok, así lo tengo escrito ahora, mi idea era escribir un poco más abreviado el código para que no quedara una línea tan larga en $PALABRAS (se ve un poco feo escribir una línea tan larga).
Gracias,
Pablo

Me asalta una nueva duda, pero, es relacionada con el mismo archivo. Supongamos que antes de hacer todos los cambios deseo buscar una línea en $cabeza y guardarla, en my $example, para hacer uso de ella mediante un if/else más adelante, en específico, busco las líneas:
o para luego hacer algo como esto:
y si se da el otro caso hacer:

Claro, la idea sería hacerlo sin tener que hacer grandes modificaciones al script, si es que es posible.

Saludos,
Pablo.

Si buscas un texto en concreto, puedes usar la función index(). Si encuentras lo que buscas, pones una variable bandera a '1' (por ejemplo), y luego, con un if(), distingues los casos.

Ya veo, pero, creo que no me funcionará. Como las palabra que busco son \usepackage{pst-exa} o \usepackage[tcb]{pst-exa} y \usepackage aparece varias veces en $cabeza (no sé cuántas), no podré fijar el valor en 1 usando index() para analizar los casos (pienso). Le daré un par de vueltas a ver si lo logro.

Gracias,
Pablo.

Bueno, con que aparezca una sola vez, vale, ¿no?

Bueno, creo que comprendí la idea (más o menos). Agregué el siguiente código justo después de dividir el archivo:

y este código antes de grabar los cambios:
Claro, no he podido analizar todos los casos, pero, es un inicio.

index() devuelve -1 en caso de que no encuentre la subcadena.

Si la encuentra, devolverá un valor que será la posición en la que encuentra la subcadena en la cadena. Así que será un valor entre 0 y la longitud de la cadena menos la subcadena (entonces... '0' es también un valor válido que indica que se encontró la subcadena).

Repasa el if(), porque no tienes en cuenta el caso de que la subcadena esté en la primera posición de $cabeza (sí, es raro, pero podría pasar).