Foro - Perl en Español

Hola. Tengo una duda y, seguro que es muy fácil, pero no consigo encontrar cómo hacerlo.

Se trata de seleccionar todo el contenido entre dos ocurrencias, o por ejemplo, entre el inicio de una cadena y la última ocurrencia de un carácter. Algo como este ejemplo:

$cadena = "A.B.C.D";

y quiero seleccionar desde el inicio de la cadena hasta el último punto.

Para seleccionar entre el inicio y el primer punto, sé hacerlo:

$cadena =~ /^(.+?)\./; # por lo que se guardaría "A" en la variable $1

Pero sí me interesa lo que está antes del último punto. Es decir, poder seleccionar "A.B.C".

Gracias por la ayuda y siento si es una duda muy tonta.

Se puede hacer con rindex(), que funciona igual que index(), pero empezando por el final.

Más información en perldoc -f rindex

Otra opción es usando una expresión regular:

El patrón quiere decir:

• desde el comienzo (^), captura todo lo que haya hasta un punto [.]
• que esté seguido por cualquier cosa que no sea un punto [^.]+
• y nada más ($)

Muchas gracias, explorer. Como siempre, de mucha ayuda, tus consejos.