Foro - Perl en Español

En cadenas como las siguientes

FNI-II, II, 64: fol. 250v; FNIII, pról.: 3; SS, 1: fol. 3r; FNIV, 42: fol. 49r

quiero colocar "FNI-II" en $1 y ", II, 64: fol. 250v;" en $2.

No sé cómo hacer que el segundo paréntesis no pueda contener ninguna de las subcadenas (AGr|S|AG|FNI-II|FNIII|SS|FNIV|LG|LD).

Forzar que no contenga caracteres es muy sencillo, pero ¿cómo se haría para que no contenga subcadenas?

$x = m/(AGr|S|AG|FNI-II|FNIII|SS|FNIV|LG|LD)([^AGr|S|AG|FNI-II|FNIII|SS|FNIV|LG|LD]*)/;

Gracias por la ayuda.

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

¿No te valdría con almacenar en $1 el contenido que va desde el comienzo de la cadena hasta la primera coma, y el $2, lo que sigue hasta el siguiente punto y coma?

Muchas gracias por la bienvenida.

No me sirve, busco la solución a mi pregunta, la línea que he puesto es solo un ejemplo.

Bueno, una forma de hacerlo es así:



La idea es capturar todo hasta la próxima aparición del patrón.

Pero hay un problema: qué ocurre si la cadena es

$_ = "FNI-II, II, 64: fol. 250v;";

Es decir, no tenemos contemplado el caso de capturar todo hasta el final del texto.

Con esta variación lo resolvemos:



Edito: Ya encontré la manera:

El espacio en blanco que hay delante de $r en la expresión regular es para desechar el espacio que sigue a '250v;'.

Muchas gracias, soluciona el problema, aunque le he dado muchas vueltas y no he terminado de entender el uso que se hace del interrogante y los dos puntos.

La expresión '(?:...)' sirve para agrupar otras expresiones con la ayuda de los paréntesis, pero sin que sean capturadas a $1, $2, $3, etc.

La expresión '(?:(?! $r).)*' quiere decir que buscamos cero o más (*) caracteres (.) que no coincidan con ' $r'. Los paréntesis exteriores agrupan '(?!...)' y '.', para que la comprobación se haga por cada carácter, y se repita para todos los caracteres (el '*' que le sigue).